hlint

[Lucu.git] / Network / HTTP / Lucu / Parser / Http.hs

diff --git a/Network/HTTP/Lucu/Parser/Http.hs b/Network/HTTP/Lucu/Parser/Http.hs
index 72d8ca1721ae7908a94cd1b2445eff1aaa16e1c8..e59f4607b25b521d6935a2c4a75a2c4f997e9495 100644 (file)
--- a/Network/HTTP/Lucu/Parser/Http.hs
+++ b/Network/HTTP/Lucu/Parser/Http.hs
@@ -128,7 +128,7 @@ quotedStr ∷ Parser Ascii
 quotedStr = do void $ char '"'
                xs ← P.many (qdtext <|> quotedPair)
                void $ char '"'
-               return $ A.unsafeFromByteString $ BS.pack xs
+               return ∘ A.unsafeFromByteString $ BS.pack xs
             <?>
             "quotedStr"
     where