--Value getting functions              
getString :: JValue -> Maybe String
getString (JString s) = Just s
getString :: JValue -> Maybe String
getString (JString s) = Just s
getString (JString s) = Just s