purescript-contrib / purescript-form-urlencoded Goto Github PK

* Building project in /home/rox/c/ps/test-pscorefn-src
Compiling Data.FormURLEncoded
Error found:
at bower_components/purescript-form-urlencoded/src/Data/FormURLEncoded.purs line 31, column 8 - line 31, column 64

  Cannot derive a type class instance for
                                       
    Data.Generic.Generic FormURLEncoded
                                       
  since instances of this type class are not derivable.

> decode "a=aa&b=bb"
(Just (FormURLEncoded [(Tuple "a" (Just "aa")),(Tuple "b" (Just "bb"))]))

> decode "this=this%3Dthis"
(Just (FormURLEncoded [(Tuple "this" (Just "this=this"))]))

> decode "&x=x&&y=y&z="
(Just (FormURLEncoded [(Tuple "" Nothing),(Tuple "x" (Just "x")),(Tuple "" Nothing),(Tuple "y" (Just "y")),(Tuple "z" (Just ""))]))

> decode "a=b&%8A=c"
Nothing

> encode =<< decode "a=aa&b=bb"
(Just "a=aa&b=bb")

> encode =<< decode "this=this%3Dthis"
(Just "this=this%3Dthis")

> encode =<< decode "&x=x&&y=y&z="
(Just "&x=x&&y=y&z=")

> encode =<< decode "a=b&%8A=c"
Nothing

> encode $ fromArray 
>   [ Tuple "hey" Nothing
>   , Tuple "Oh" (Just "Let's go!")
>   ]
Just "hey&Oh=Let's%20go!"

Just "hey&Oh=Let's+go!"

33: -- | Encode `FormURLEncoded` as `application/x-www-form-urlencoded`.
34: encode :: FormURLEncoded -> Maybe String
35: encode = map (String.joinWith "&") <<< traverse encodePart <<< toArray
36:   where
37:     encodePart = case _ of
38:       Tuple k Nothing -> encodeURIComponent k
                             ^^^^^^^^^^^^^^^^^^
39:       Tuple k (Just v) -> (\key val -> key <> "=" <> val) <$> encodeURIComponent k <*> encodeURIComponent v
                                                                  ^^^^^^^^^^^^^^^^^^       ^^^^^^^^^^^^^^^^^^
40:
41: -- | Decode `FormURLEncoded` from `application/x-www-form-urlencoded`.
42: decode :: String -> Maybe FormURLEncoded
43: decode = map FormURLEncoded <<< traverse decodePart <<< String.split (Pattern "&")
44:   where
45:     decodePart = String.split (Pattern "=") >>> case _ of
46:       [k, v] -> (\key val -> Tuple key $ Just val) <$> decodeURIComponent k <*> decodeURIComponent v
                                                           ^^^^^^^^^^^^^^^^^^       ^^^^^^^^^^^^^^^^^^
47:       [k]    -> Tuple <$> decodeURIComponent k <*> pure Nothing
                              ^^^^^^^^^^^^^^^^^^