Skip to content

E
epo-proxy-api-client
Verified Commit eae89b09 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

Fixes to readEither

parent 0b1cd960
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
src/EPO/API/Client.hs
View file @ eae89b09
...@@ -31,7 +31,7 @@ defaultClientEnv uri = do ...@@ -31,7 +31,7 @@ defaultClientEnv uri = do
let uriPort' = let uriPort' =
if uriPort == "" if uriPort == ""
then Right port 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 manager <- newManager managerSettings
let env' = mkClientEnv manager $ BaseUrl proto uriRegName (fromRight 80 uriPort') "" let env' = mkClientEnv manager $ BaseUrl proto uriRegName (fromRight 80 uriPort') ""
let makeClientRequest bu req = let makeClientRequest bu req =
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment