X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FHeaders.hs;h=e72022c72c0d5f11f253504fd5ed34c4288bd1d4;hp=3308bbfad7abe200bbc92951c9c8b2618a502839;hb=6126eb9cbe5b38c300d855d96d2238831e59b5dd;hpb=558205096e7f51da7018458d173584ac31808082

diff --git a/Network/HTTP/Lucu/Headers.hs b/Network/HTTP/Lucu/Headers.hs
index 3308bbf..e72022c 100644
--- a/Network/HTTP/Lucu/Headers.hs
+++ b/Network/HTTP/Lucu/Headers.hs
@@ -127,7 +127,7 @@ headersP = do xs ← P.many header
       {-# INLINE content #-}
       content = A.unsafeFromByteString
                 <$>
-                takeWhile1 (\c → ((¬) (isSPHT c)) ∧ isText c)
+                takeWhile1 (\c → (¬) (isSPHT c) ∧ isText c)
 
       joinValues ∷ [Ascii] → Ascii
       {-# INLINE joinValues #-}