-- SimpleJSON.hs data JValue = JString String | JNumber Double | JBool Bool | JNull | JObject [(String, JValue)] | JArray [JValue] deriving (Eq, Ord, Show) Main> :t JString "foo" -- JString "foo"の型はJValue JString "foo" :: JValue Main> :…