Help with Data.Aeson json data parsing

3 Jan 2014


      Hi, please can you help me with following? I'm trying to parse one json
(simplified version below), but I keep getting:

"when expecting a record (:*:), encountered Array instead"


code:
------------

data SomeData = SomeData {
    v1 :: Int,
    v2 :: Int
} deriving (Show, Generic)

data SomeDataPack = SomeDataPack{
    pack :: [SomeData]
} deriving (Show, Generic)

instance FromJSON SomeData
instance FromJSON SomeDataPack

parsedata :: IO (Maybe SomeDataPack)
parsedata = do
    let x = "[{\"v1\":11,\"v2\":12},{\"v1\":13,\"v2\":14}]";
    case (eitherDecode' x :: Either String SomeDataPack) of
           Right r -> do
                putStrLn $ show r
                return $ Just r
           Left e -> do
                putStrLn $ show e
                return Nothing


thanks,
m.

Miro Karpis

Brandon Allbery

Miro Karpis

tags

participants (2)