X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FHeaders.hs;h=f87ae5cc127bf5de7be624241373a779080094ad;hp=400e49b1291d284bd43a0def5f9aff5f2e5955a1;hb=4498b6a9091bebb38a92a730b7abff40833e3ed2;hpb=b923d454928e3d01134b15d6072b6d3edf7a15ca

diff --git a/Network/HTTP/Lucu/Headers.hs b/Network/HTTP/Lucu/Headers.hs
index 400e49b..f87ae5c 100644
--- a/Network/HTTP/Lucu/Headers.hs
+++ b/Network/HTTP/Lucu/Headers.hs
@@ -101,7 +101,7 @@ fromHeaders (Headers m) = M.toList m
 -}
 headersP ∷ Parser Headers
 {-# INLINEABLE headersP #-}
-headersP = do xs ← P.many $ try header
+headersP = do xs ← P.many header
               crlf
               return $ toHeaders xs
     where