X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FRequest.hs;h=b690c3e612435844eef847ff8feffbec1b39407e;hp=8b516cca432b6cc5b67aa6298059c2e220806f91;hb=b923d45;hpb=0a300483f71cbbbe84b5781849f33692c2832864

diff --git a/Network/HTTP/Lucu/Request.hs b/Network/HTTP/Lucu/Request.hs
index 8b516cc..b690c3e 100644
--- 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)