From fcb1b7f6b4f1e163852fab789e1d4877b5547c0b Mon Sep 17 00:00:00 2001
From: Dawei LIU <dawei-dev@users.noreply.github.com>
Date: Mon, 17 Apr 2017 15:25:03 +0200
Subject: [PATCH] Fix minor doc typo

---
 yesod-form/Yesod/Form/Input.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/yesod-form/Yesod/Form/Input.hs b/yesod-form/Yesod/Form/Input.hs
index 4591ac17..826b4c60 100644
--- a/yesod-form/Yesod/Form/Input.hs
+++ b/yesod-form/Yesod/Form/Input.hs
@@ -25,7 +25,7 @@ import Control.Arrow ((***))
 type DText = [Text] -> [Text]
 
 -- | Type for a form which parses a value of type @a@ with the base monad @m@
--- (usually your @Handler@). Can can compose this using its @Applicative@ instance.
+-- (usually your @Handler@). Can compose this using its @Applicative@ instance.
 newtype FormInput m a = FormInput { unFormInput :: HandlerSite m -> [Text] -> Env -> FileEnv -> m (Either DText a) }
 instance Monad m => Functor (FormInput m) where
     fmap a (FormInput f) = FormInput $ \c d e e' -> liftM (either Left (Right . a)) $ f c d e e'