solga-client-ghcjs: allow users to set base url for request

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(..)
@@ -84,6 +85,7 @@ type Header = (Text, Text)
 data Request = forall body. (DOM.IsXMLHttpRequestBody body) => Request
   { reqMethod :: Text
   , reqSegments :: DList Text
+  , reqBaseUrl :: Text
   , reqQuery :: DList (Text, Maybe Text)
   , reqUser :: Maybe Text
   , reqPassword :: Maybe Text
@@ -192,7 +194,7 @@ requestToUri :: Request -> DOM.JSM Text
 requestToUri Request{..} = do
 #if defined(ghcjs_HOST_OS)
   liftIO $ js_encodeURI $
-    "/" <>
+    reqBaseUrl <>
     T.intercalate "/" (DList.toList reqSegments) <>
     case DList.toList reqQuery of
       [] -> ""