15 May
2011
15 May
'11
7:38 p.m.
On 15 May 2011 23:20, Magnus Therning
I wrote down some stuff from my first look at json, maybe it can help you in getting further?
FWIW, rather than: readJSON (JSObject obj) = let jsonObjAssoc = fromJSObject obj in do para <- mLookup "para" jsonObjAssoc >>= readJSON seeAlso <- mLookup "GlossSeeAlso" jsonObjAssoc >>= readJSON return $ GlossDef { glossDefPara = para , glossDefSeeAlso = seeAlso } You can just write: readJSON object = do obj <- readJSON object GlossDef <$> valFromObj "para" obj <*> valFromObj "GlossSeeAlso" obj