Removed unnecessary 'try'

Ditz-issue: 8959dadc07db1bd363283dee401073f6e48dc7fa

diff --git a/Network/HTTP/Lucu/Authorization.hs b/Network/HTTP/Lucu/Authorization.hs
index 64183ff1c86ef1317efd3352d94ff051fa6cd429..11de19962d75b6c78817ab3df33207dcb126bc5d 100644 (file)
--- a/Network/HTTP/Lucu/Authorization.hs
+++ b/Network/HTTP/Lucu/Authorization.hs
@@ -59,8 +59,7 @@ printAuthChallenge (BasicAuthChallenge realm)
 
 authCredentialP ∷ Parser AuthCredential
 authCredentialP
-    = try $
-      do _ ← string "Basic"
+    = do _ ← string "Basic"
          skipMany1 lws
          b64 ← takeWhile1 base64
          case C8.break (≡ ':') (B64.decodeLenient b64) of

diff --git a/Network/HTTP/Lucu/ETag.hs b/Network/HTTP/Lucu/ETag.hs
index 056f14fa4c8f847512abd93c1cf4af62de25006d..acc496fa2113ef6a0848e570dffd56c453566f4b 100644 (file)
--- a/Network/HTTP/Lucu/ETag.hs
+++ b/Network/HTTP/Lucu/ETag.hs
@@ -58,8 +58,7 @@ weakETag ∷ Ascii → ETag
 weakETag = ETag True
 
 eTagP ∷ Parser ETag
-eTagP = try $
-        do isWeak ← option False (string "W/" ≫ return True)
+eTagP = do isWeak ← option False (string "W/" ≫ return True)
            str    ← quotedStr
            return $ ETag isWeak str
 

diff --git a/Network/HTTP/Lucu/Headers.hs b/Network/HTTP/Lucu/Headers.hs
index 424145586253bd0544f8070d540cad9c83e502ff..400e49b1291d284bd43a0def5f9aff5f2e5955a1 100644 (file)
--- a/Network/HTTP/Lucu/Headers.hs
+++ b/Network/HTTP/Lucu/Headers.hs
@@ -101,17 +101,16 @@ fromHeaders (Headers m) = M.toList m
 -}
 headersP ∷ Parser Headers
 {-# INLINEABLE headersP #-}
-headersP = do xs ← P.many header
+headersP = do xs ← P.many $ try header
               crlf
               return $ toHeaders xs
     where
       header ∷ Parser (CIAscii, Ascii)
-      header = try $
-               do name ← A.toCIAscii <$> token
+      header = do name ← A.toCIAscii <$> token
                   _    ← char ':'
                   skipMany lws
-                  values ← sepBy content lws
-                  skipMany lws
+                  values ← sepBy content (try lws)
+                  skipMany (try lws)
                   crlf
                   return (name, joinValues values)
 

diff --git a/Network/HTTP/Lucu/MultipartForm.hs b/Network/HTTP/Lucu/MultipartForm.hs
index 10d1f64276f07307c581e66d463492c3ef7358d6..db32a4cfa56484a92018911aef8dcdb325a50649 100644 (file)
--- a/Network/HTTP/Lucu/MultipartForm.hs
+++ b/Network/HTTP/Lucu/MultipartForm.hs
@@ -62,8 +62,7 @@ printContDispo d
 
 multipartFormP ∷ Ascii → Parser [(Text, FormData)]
 multipartFormP boundary
-    = try $
-      do parts ← many (partP boundary)
+    = do parts ← many $ try $ partP boundary
          _     ← string "--"
          _     ← string $ A.toByteString boundary
          _     ← string "--"
@@ -72,8 +71,7 @@ multipartFormP boundary
 
 partP ∷ Ascii → Parser Part
 partP boundary
-    = try $
-      do _    ← string "--"
+    = do _    ← string "--"
          _    ← string $ A.toByteString boundary
          crlf
          hs   ← headersP
@@ -83,8 +81,7 @@ partP boundary
 
 bodyP ∷ Ascii → Parser LS.ByteString
 bodyP boundary
-    = try $
-      do body ← manyCharsTill anyChar $
+    = do body ← manyCharsTill anyChar $
                     try $
                     do crlf
                        _ ← string "--"

diff --git a/Network/HTTP/Lucu/Parser/Http.hs b/Network/HTTP/Lucu/Parser/Http.hs
index 4138db23ad81c3a8777976a21b74fa9fe94fcb55..520034247726f3ec6398eb8b69b143eb08456ceb 100644 (file)
--- a/Network/HTTP/Lucu/Parser/Http.hs
+++ b/Network/HTTP/Lucu/Parser/Http.hs
@@ -87,8 +87,7 @@ isToken !c
 listOf ∷ Parser a → Parser [a]
 {-# INLINEABLE listOf #-}
 listOf p
-    = try $
-      do skipMany lws
+    = do skipMany lws
          sepBy p $ do skipMany lws
                       _ <- char ','
                       skipMany lws
@@ -111,10 +110,9 @@ sp = char '\x20' ≫ return ()
 -- |HTTP LWS: crlf? (sp | ht)+
 lws ∷ Parser ()
 {-# INLINEABLE lws #-}
-lws = try $
-      do option () crlf
-         _ ← satisfy isSPHT
-         skipWhile isSPHT
+lws = do option () crlf
+         _ ← takeWhile1 isSPHT
+         return ()
 
 -- |Returns 'True' for SP and HT.
 isSPHT ∷ Char → Bool

diff --git a/Network/HTTP/Lucu/Request.hs b/Network/HTTP/Lucu/Request.hs
index 8b516cca432b6cc5b67aa6298059c2e220806f91..b690c3e612435844eef847ff8feffbec1b39407e 100644 (file)
--- a/Network/HTTP/Lucu/Request.hs
+++ b/Network/HTTP/Lucu/Request.hs
@@ -85,8 +85,7 @@ methodP = choice
           ]
 
 uriP ∷ Parser URI
-uriP = try $
-       do bs ← takeWhile1 (\c → (¬) (isCtl c ∨ c ≡ '\x20'))
+uriP = do bs ← takeWhile1 (\c → (¬) (isCtl c ∨ c ≡ '\x20'))
           let str = C8.unpack bs
           case parseURIReference str of
             Nothing  -> fail ("Unparsable URI: " ⧺ str)