Ich versuche, JSON-Daten in haskell zu analysieren. Nachdem ich eine Reihe von Websites durchgesehen habe, ist dies das weiteste, was ich erreichen konnte.

data Address = Address { house :: Integer, street :: String, city :: String, state :: String, zip :: Integer } deriving (Show)
data Person = Person { name :: String, age :: Integer, address :: Address } deriving (Show)

getName :: Person -> String
getName (Person n _ _) = n

getAddress :: Person -> Address
getAddress (Person _ _ a) = a

getState :: Address -> String
getState (Address _ _ _ s _) = s

Ich schreibe das in eine Datei ex.hs und lade es in ghci ->

Prelude> import Text.JSON
Prelude Text.JSON> :load ex
Main Text.JSON> let aa = "{\"name\": \"some body\", \"age\" : 23, \"address\" : {\"house\" : 285, \"street\" : \"7th Ave.\", \"city\" : \"New York\", \"state\" : \"New York\", \"zip\" : 10001}}"
...> decode aa :: Result JSValue

Es kehrt zurück

Ok (JSObject (JSONObject {fromJSObject = [("name",JSString (JSONString {fromJSString = "some body"})),("age",JSRational False (23 % 1)),("address",JSObject (JSONObject {fromJSObject = [("house",JSRational False (285 % 1)),("street",JSString (JSONString {fromJSString = "7th Ave."})),("city",JSString (JSONString {fromJSString = "New York"})),("state",JSString (JSONString {fromJSString = "New York"})),("zip",JSRational False (10001 % 1))]}))]}))

Unnötig zu erwähnen, dass es ziemlich ausführlich (und beängstigend) wirkt. Ich habe es versucht

...> decode aa :: Result Person

und es gab mir einen Fehler. Wie fülle ich eine Instanz der Person-Datenstruktur aus dieser JSON-Zeichenfolge auf? Was kann ich beispielsweise tun, um den Status der Person in der JSON-Zeichenfolge abzurufen?