X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FParser%2FHttp.hs;h=e59f4607b25b521d6935a2c4a75a2c4f997e9495;hp=72d8ca1721ae7908a94cd1b2445eff1aaa16e1c8;hb=2bcf36a739341aaaf56d812286d57233fff81ad5;hpb=6df5f92e37d27641f53e271f043c66dd3d085bb7

diff --git a/Network/HTTP/Lucu/Parser/Http.hs b/Network/HTTP/Lucu/Parser/Http.hs
index 72d8ca1..e59f460 100644
--- 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