solga-client-ghcjs: allow users to use generate relative URLs

Author: bitonic

solga-client-ghcjs/src/Solga/Client/GHCJS.hs

@@ -33,6 +33,7 @@ module Solga.Client.GHCJS
   , WithData(..)
   , GetResponse(..)
   , Request(..)
+  , RequestUriType(..)
   , Response(..)
   , Header
   , XHRError(..)
@@ -81,9 +82,13 @@ import qualified JSDOM.Generated.XMLHttpRequest as DOM.XMLHttpRequest
 
 type Header = (Text, Text)
 
+data RequestUriType = RUTAbsolute | RUTRelative
+  deriving (Eq, Show)
+
 data Request = forall body. (DOM.IsXMLHttpRequestBody body) => Request
   { reqMethod :: Text
   , reqSegments :: DList Text
+  , reqUriType :: RequestUriType
   , reqQuery :: DList (Text, Maybe Text)
   , reqUser :: Maybe Text
   , reqPassword :: Maybe Text
@@ -192,7 +197,9 @@ requestToUri :: Request -> DOM.JSM Text
 requestToUri Request{..} = do
 #if defined(ghcjs_HOST_OS)
   liftIO $ js_encodeURI $
-    "/" <>
+    (case reqUriType of
+      RUTAbsolute -> "/"
+      RUTRelative -> "") <>
     T.intercalate "/" (DList.toList reqSegments) <>
     case DList.toList reqQuery of
       [] -> ""