Browse files

fix to duplicate unescape from html-entities

  • Loading branch information...
1 parent c6048bb commit 0151c949500bbff68cc3a766af898588032a2476 @ayamada ayamada committed Sep 1, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Network/Gitit/Types.hs
View
2 Network/Gitit/Types.hs
@@ -300,7 +300,7 @@ instance FromReqURI [String] where
instance FromData Params where
fromData = do
- let look' = liftM fromEntities . look
+ let look' = look
un <- look' "username" `mplus` return ""
pw <- look' "password" `mplus` return ""
p2 <- look' "password2" `mplus` return ""

0 comments on commit 0151c94

Please sign in to comment.