haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Type issues

Browse Source
This commit is contained in:
Michael Snoyman 2011-05-13 09:01:23 +03:00
parent e6503056a7
commit e7ca38515d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Yesod/Form/Input.hs
View File

@ -14,6 +14,7 @@ import Yesod.Handler (GHandler, GGHandler, invalidArgs, runRequestBody, getReque
import Yesod.Request (reqGetParams) import Yesod.Request (reqGetParams)
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
import Control.Monad (liftM) import Control.Monad (liftM)
import Yesod.Widget (GWidget)
type DText = [Text] -> [Text] type DText = [Text] -> [Text]
newtype FormInput a = FormInput { unFormInput :: Env -> Either DText a } newtype FormInput a = FormInput { unFormInput :: Env -> Either DText a }
@ -28,13 +29,13 @@ instance Applicative FormInput where
(_, Left b) -> Left b (_, Left b) -> Left b
(Right a, Right b) -> Right $ a b (Right a, Right b) -> Right $ a b
ireq :: Field xml a -> Text -> FormInput a ireq :: Field (GWidget sub master ()) a -> Text -> FormInput a
ireq field name = FormInput $ \env -> ireq field name = FormInput $ \env ->
case lookup name env of case lookup name env of
Nothing -> Left $ (:) $ append "Input not found: " name -- TRANS Nothing -> Left $ (:) $ append "Input not found: " name -- TRANS
Just x -> either (Left . (:)) Right $ fieldParse field x Just x -> either (Left . (:)) Right $ fieldParse field x
iopt :: Field xml a -> Text -> FormInput (Maybe a) iopt :: Field (GWidget sub master ()) a -> Text -> FormInput (Maybe a)
iopt field name = FormInput $ \env -> iopt field name = FormInput $ \env ->
case fromMaybe "" $ lookup name env of case fromMaybe "" $ lookup name env of
"" -> Right Nothing "" -> Right Nothing