Add xhrErrorToText

Author: ali-abrar

Readme.md

@@ -161,8 +161,6 @@ The `Event` of responses comes, in this case, from a function that will take the
 >       Right a -> Right a
 >       Left x -> Left $ f x
 >
->     xhrErrorToText = _xhrResponse_statusText . _xhrError_response
->
 
 ```
 

reflex-gadt-api.cabal

@@ -25,7 +25,6 @@ library
       aeson               >=1.4.4  && <2.3
     , aeson-gadt-th       >=0.2.4  && <0.3
     , base                >=4.12   && <4.22
-    , bytestring          >=0.10.8 && <0.13
     , constraints-extras  >=0.3.0  && <0.5
     , containers          >=0.6    && <0.8
     , data-default        >=0.6    && <0.9

src/Reflex/Dom/GadtApi/XHR.hs

@@ -10,11 +10,9 @@ module Reflex.Dom.GadtApi.XHR where
 import Control.Concurrent (forkIO, newEmptyMVar, putMVar, takeMVar)
 import Control.Monad.IO.Class (MonadIO, liftIO)
 import Data.Aeson
-import qualified Data.ByteString.Lazy as LBS
 import Data.Constraint.Extras (Has, has)
 import Data.Functor (void)
 import Data.Text (Text)
-import qualified Data.Text.Encoding as T
 import GHC.Generics
 import Language.Javascript.JSaddle (MonadJSM)
 import Language.Javascript.JSaddle.Monad (runJSM, askJSM)
@@ -53,6 +51,15 @@ data XhrError = XhrError
   }
   deriving (Generic)
 
+xhrErrorToText :: XhrError -> Text
+xhrErrorToText e =
+  let
+    status = _xhrResponse_statusText . _xhrError_response $ e
+    rsp = _xhrResponse_responseText . _xhrError_response $ e
+  in status <> case rsp of
+      Nothing -> ""
+      Just r -> ": " <> r
+
 -- | Encodes an API request as JSON and issues an 'XhrRequest',
 -- and attempts to decode the response.
 apiRequestXhr