Removed unnecessary 'try'

[Lucu.git] / Network / HTTP / Lucu / Request.hs

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)