purescript-node-url/src/Node/URL/URLSearchParams.purs at a2a6d7a4f982dd0921590c20ab4c8f0254a822a8 · purescript-node/purescript-node-url · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
module Node.URL.URLSearchParams
  ( URLSearchParams
  , new
  , fromString
  , fromObject
  , appendParam
  , delete
  , get
  , getAll
  , has
  , set
  , size
  , sort
  , toString
  , entries
  , keys
  , values
  ) where

import Prelude

import Data.Maybe (Maybe)
import Data.Nullable (Nullable, toMaybe)
import Data.Tuple (Tuple(..))
import Effect (Effect)
import Effect.Uncurried (EffectFn1, EffectFn2, EffectFn3, runEffectFn1, runEffectFn2, runEffectFn3)
import Foreign (Foreign)

foreign import data URLSearchParams :: Type

foreign import new :: Effect (URLSearchParams)

fromString :: String -> Effect URLSearchParams
fromString str = runEffectFn1 fromStringImpl str

foreign import fromStringImpl :: EffectFn1 (String) (URLSearchParams)

-- | Each label in the record arg must be of type `String`, `Array String`,
-- | or a newtyped version of those two types.
-- | Note: the compiler does not check the record arg to verify that this constraint
-- | has been satisfied.
fromObject
  :: forall r
   . { | r }
  -> Effect URLSearchParams
fromObject obj = runEffectFn1 fromObjectImpl obj

foreign import fromObjectImpl :: forall r. EffectFn1 ({ | r }) (URLSearchParams)

appendParam :: String -> String -> URLSearchParams -> Effect Unit
appendParam name value params = runEffectFn3 appendParamImpl name value params

foreign import appendParamImpl :: EffectFn3 (String) (String) (URLSearchParams) (Unit)

delete :: String -> URLSearchParams -> Effect Unit
delete name params = runEffectFn2 deleteImpl name params

foreign import deleteImpl :: EffectFn2 (String) (URLSearchParams) (Unit)

get :: String -> URLSearchParams -> Effect (Maybe String)
get name params = map toMaybe $ runEffectFn2 getImpl name params

foreign import getImpl :: EffectFn2 (String) (URLSearchParams) (Nullable String)

getAll :: String -> URLSearchParams -> Effect (Array String)
getAll name params = runEffectFn2 getAllImpl name params

foreign import getAllImpl :: EffectFn2 (String) (URLSearchParams) (Array String)

has :: String -> URLSearchParams -> Effect Boolean
has name params = runEffectFn2 hasImpl name params

foreign import hasImpl :: EffectFn2 (String) (URLSearchParams) (Boolean)

set :: String -> String -> URLSearchParams -> Effect Unit
set name value params = runEffectFn3 setImpl name value params

foreign import setImpl :: EffectFn3 (String) (String) (URLSearchParams) (Unit)

size :: URLSearchParams -> Effect Int
size params = runEffectFn1 sizeImpl params

foreign import sizeImpl :: EffectFn1 (URLSearchParams) (Int)

sort :: URLSearchParams -> Effect Unit
sort params = runEffectFn1 sortImpl params

foreign import sortImpl :: EffectFn1 (URLSearchParams) (Unit)

toString :: URLSearchParams -> Effect String
toString params = runEffectFn1 toStringImpl params

foreign import toStringImpl :: EffectFn1 (URLSearchParams) (String)

entries :: URLSearchParams -> Effect (Array (Tuple String Foreign))
entries params = runEffectFn2 entriesImpl params Tuple

foreign import entriesImpl :: forall a b. EffectFn2 URLSearchParams (a -> b -> Tuple a b) (Array (Tuple String Foreign))

keys :: URLSearchParams -> Effect (Array String)
keys params = runEffectFn1 keysImpl params

foreign import keysImpl :: EffectFn1 (URLSearchParams) (Array String)

values :: URLSearchParams -> Effect (Array Foreign)
values params = runEffectFn1 valuesImpl params

foreign import valuesImpl :: EffectFn1 (URLSearchParams) (Array Foreign)