diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Cana/Protocol.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Cana/Protocol.hs b/src/Cana/Protocol.hs index 1a5f48e..be80f21 100644 --- a/src/Cana/Protocol.hs +++ b/src/Cana/Protocol.hs @@ -43,8 +43,8 @@ import Data.Char import Data.String import Text.Read import qualified Data.ByteString.Lazy as B +import qualified Data.ByteString.Lazy.Char8 as C import Data.ByteString.Lazy.Search -import qualified Data.ByteString.Lazy.UTF8 as UTF import Data.ByteString.Builder import Data.X509 (CertificateChain) import Network.URI @@ -222,7 +222,7 @@ parseResponse text = do header = fromMaybe header' $ B.stripSuffix headerDelim header' (code, meta') = B.break (== codeDelim) header meta = B.dropWhile (== codeDelim) meta' - statusCode <- readMaybe (UTF.toString code) >>= fromInt + statusCode <- readMaybe (C.unpack code) >>= fromInt return GeminiResponse { responseStatus = statusCode , responseMeta = meta |