Fixes to readEither

eae89b09 · Przemyslaw Kaminski · 0b1cd960 · eae89b09
Verified Commit eae89b09 authored Nov 09, 2023 by Przemyslaw Kaminski
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

Client.hs src/EPO/API/Client.hs +1 -1

No files found.
--- a/src/EPO/API/Client.hs
+++ b/src/EPO/API/Client.hs
@@ -31,7 +31,7 @@ defaultClientEnv uri  = do
  let uriPort' =
        if uriPort == ""
        then Right port
-        else (readEither (T.tail $ T.pack uriPort) :: Either Text Int)
+        else (readEither (T.unpack $ T.tail $ T.pack uriPort) :: Either [Char] Int)
  manager <- newManager managerSettings
  let env' = mkClientEnv manager $ BaseUrl proto uriRegName (fromRight 80 uriPort') ""
  let makeClientRequest bu req =