@@ -22,17 +22,17 @@ import Data.HTTP.Method (Method(..))
22
22
import Data.Maybe (Maybe (..))
23
23
import Data.Newtype (un )
24
24
import Data.Nullable (Nullable , toNullable )
25
- import Data.Symbol (class IsSymbol , SProxy (..) )
25
+ import Data.Symbol (class IsSymbol )
26
26
import Data.Tuple (Tuple )
27
27
import Effect (Effect )
28
28
import Effect.Uncurried (EffectFn2 , runEffectFn2 )
29
29
import Foreign.Object (Object )
30
30
import Prim.Row as Row
31
- import Prim.RowList (kind RowList )
31
+ import Prim.RowList (RowList )
32
32
import Prim.RowList as RowList
33
33
import Record (merge )
34
34
import Record.Builder as Record
35
- import Type.Data.RowList ( RLProxy (..))
35
+ import Type.Proxy ( Proxy (..))
36
36
import Type.Row.Homogeneous (class Homogeneous )
37
37
import Web.Fetch.Headers (Headers )
38
38
import Web.Fetch.Headers as Headers
@@ -126,10 +126,10 @@ instance buildRequestOptionsRecord
126
126
, Row.Nub r'' RequestOptions
127
127
)
128
128
=> BuildRequestOptions { | r } where
129
- buildRequestOptions r = merge (Record .build (convertOptions (RLProxy :: _ rl )) r) defaultOptions
129
+ buildRequestOptions r = merge (Record .build (convertOptions (Proxy :: _ rl )) r) defaultOptions
130
130
131
- class ConvertOptions (rl :: RowList ) (input :: # Type ) (output :: # Type ) | rl input -> output where
132
- convertOptions :: RLProxy rl -> Record.Builder { | input } { | output }
131
+ class ConvertOptions (rl :: RowList Type ) (input :: Row Type ) (output :: Row Type ) | rl input -> output where
132
+ convertOptions :: forall rlproxy . rlproxy rl -> Record.Builder { | input } { | output }
133
133
134
134
instance convertOptionsCons ::
135
135
( ConvertOptions rest input' output
@@ -139,14 +139,14 @@ instance convertOptionsCons ::
139
139
, IsSymbol field
140
140
) => ConvertOptions (RowList.Cons field from rest ) input output where
141
141
convertOptions _ =
142
- convertOptions (RLProxy :: _ rest )
143
- <<< Record .modify (SProxy :: _ field ) (convertOption (SProxy :: _ field ))
142
+ convertOptions (Proxy :: _ rest )
143
+ <<< Record .modify (Proxy :: _ field ) (convertOption (Proxy :: _ field ))
144
144
145
145
instance convertOptionsNil :: ConvertOptions RowList.Nil r r where
146
146
convertOptions _ = identity
147
147
148
148
class ConvertOption (field :: Symbol ) from to | field -> to where
149
- convertOption :: SProxy field -> from -> to
149
+ convertOption :: forall sproxy . sproxy field -> from -> to
150
150
151
151
instance convertMethod :: ConvertOption " method" Method Method where
152
152
convertOption _ = identity
@@ -188,4 +188,4 @@ instance convertReferrerPolicy :: ConvertOption "referrerPolicy" ReferrerPolicy
188
188
convertOption _ = identity
189
189
190
190
instance convertIntegrity :: ConvertOption " integrity" Integrity Integrity where
191
- convertOption _ = identity
191
+ convertOption _ = identity
0 commit comments