gistfile1.hs

data JSValue = JSString String
             | JSNumber Double
             | JSBool Bool
             | JSNull
             | JSObject [(String, JSValue)]
             | JSArray [JSValue]
               deriving (Eq, Ord, Show)

getString :: JSValue -> Maybe String
getString (JSString str) = Just str
getString _ = Nothing

getInt (JSNumber n) = Just (truncate n)
getInt _ = Nothing

getDouble (JSNumber n) = Just n
getDouble _ = Nothing

getBool (JSBool b) = Just b
getBool _ = Nothing

getObject (JSObject o) = Just o
getObject _ = Nothing

getArray (JSArray a) = Just a
getArray _ = Nothing

isNull v = v == JSNull