Uncaught xhr exception

[codedmart]

I had the following code:

import Prelude
import Control.Monad.Eff (Eff())
import Control.Monad.Eff.Console (CONSOLE(), log)

import Control.Monad.Eff.Exception
import Control.Monad.Aff
import qualified Network.HTTP.Affjax as A
import Network.HTTP.Affjax.Request
import Network.HTTP.Affjax.Response
import Network.HTTP.Method
import Network.HTTP.RequestHeader
import Browser.WebStorage
import Data.Maybe
import Data.Either
import Data.Either.Unsafe

main :: forall e. Eff _ Unit
main = do
  runAff throwException log fetchCurrentAuth

fetchCurrentAuth :: forall eff. Aff _ String
fetchCurrentAuth = do
  token <- liftEff' $ getItem localStorage "Authorization"
  let tok = fromMaybe "" $ fromRight token
  let request = A.defaultRequest
        { url = "url"
        , method = GET
        , headers =
          [ RequestHeader "Content-Type" "application/json"
          , RequestHeader "Accept" "application/json"
          , RequestHeader "Authorization" tok
          ]
        }
  result <- A.affjax request :: A.Affjax _ String
  return $ tok <> result.response

The problem ended up being that my token from localStorage had a \n on the end of it and when debugging the outputted js I was getting this error Failed to execute 'setRequestHeader' on 'XMLHttpRequest' […] is not a valid HTTP header field value that affjax is not catching.