Formatting, cleanup, fix referrer

Author: sigma-andex

src/Fetch/Core/Fetch/Headers.purs

@@ -36,9 +36,13 @@ foreign import fromObject :: Object String -> Headers
 fromFoldable :: forall f. Foldable f => f (Tuple String String) -> Headers
 fromFoldable f = unsafePerformEffect do
   init <- unsafeNew
-  foldM (\headers (Tuple key value) -> do
-    runEffectFn3 unsafeAppend key value headers
-    pure headers) init f
+  foldM
+    ( \headers (Tuple key value) -> do
+        runEffectFn3 unsafeAppend key value headers
+        pure headers
+    )
+    init
+    f
 
 fromRecord :: forall r. Homogeneous r String => { | r } -> Headers
 fromRecord = unsafeFromRecord

src/Fetch/Core/Fetch/Integrity.purs

@@ -5,6 +5,6 @@ import Prelude (class Eq, class Ord)
 
 newtype Integrity = Integrity String
 
-derive instance newtypeIntegrity :: Newtype Integrity _
-derive newtype instance eqIntegrity :: Eq Integrity
-derive newtype instance ordIntegrity :: Ord Integrity
+derive instance Newtype Integrity _
+derive newtype instance Eq Integrity
+derive newtype instance Ord Integrity

src/Fetch/Core/Fetch/Referrer.purs

@@ -9,7 +9,7 @@ toString :: Referrer -> String
 toString = case _ of
   ReferrerNone -> "none"
   ReferrerClient -> "client"
-  ReferrerUrl url ->  url
+  ReferrerUrl url -> url
 
 fromString :: String -> Referrer
 fromString = case _ of

src/Fetch/Core/Fetch/Request.purs

@@ -2,6 +2,7 @@ module Fetch.Core.Request
   ( Request
   , RequestOptions
   , UnsafeRequestOptions
+  , _unsafeNew
   , class ToInternal
   , class ToInternalConverter
   , class ToInternalHelper
@@ -15,9 +16,7 @@ module Fetch.Core.Request
 import Prelude
 
 import Data.HTTP.Method (Method)
-import Data.Maybe (Maybe)
 import Data.Newtype (un)
-import Data.Nullable (Nullable)
 import Data.Symbol (class IsSymbol)
 import Effect (Effect)
 import Effect.Uncurried (EffectFn2, runEffectFn2)
@@ -51,7 +50,7 @@ type UnsafeRequestOptions =
   , credentials :: String
   , cache :: String
   , mode :: String
-  , referrer :: Nullable String
+  , referrer :: String
   , referrerPolicy :: String
   , integrity :: String
   )
@@ -63,7 +62,7 @@ type RequestOptions =
   , credentials :: RequestCredentials
   , cache :: RequestCache
   , mode :: RequestMode
-  , referrer :: Maybe Referrer
+  , referrer :: Referrer
   , referrerPolicy :: ReferrerPolicy
   , integrity :: Integrity
   )

src/Fetch/Core/Fetch/Response.purs

@@ -11,8 +11,7 @@ module Fetch.Core.Response
   , statusText
   , text
   , url
-  )
-  where
+  ) where
 
 import Data.ArrayBuffer.Types (ArrayBuffer, Uint8Array)
 import Effect (Effect)