<div dir="ltr">Hi, please can you help me with following? I'm trying to parse one json (simplified version below), but I keep getting:<div><br></div><div>







<p class="">"when expecting a record (:*:), encountered Array instead"</p><p class=""><br></p><p class="">code:</p><div><div>------------</div><div><br></div><div><div>data SomeData = SomeData {</div><div>    v1 :: Int,</div>
<div>    v2 :: Int</div><div>} deriving (Show, Generic)</div><div><br></div><div>data SomeDataPack = SomeDataPack{</div><div>    pack :: [SomeData]</div><div>} deriving (Show, Generic)</div><div><br></div><div>instance FromJSON SomeData</div>
<div>instance FromJSON SomeDataPack</div><div><br></div><div>parsedata :: IO (Maybe SomeDataPack)</div><div>parsedata = do</div><div>    let x = "[{\"v1\":11,\"v2\":12},{\"v1\":13,\"v2\":14}]";</div>
<div>    case (eitherDecode' x :: Either String SomeDataPack) of</div><div>           Right r -> do</div><div>                putStrLn $ show r</div><div>                return $ Just r</div><div>           Left e -> do</div>
<div>                putStrLn $ show e</div><div>                return Nothing</div></div></div></div><div><br></div><div><br></div><div>thanks,</div><div>m.</div></div>