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

E-mail validation via email-validate

Browse Source
This commit is contained in:
Michael Snoyman 2010-07-11 10:12:33 +03:00
parent 93d71a4779
commit d5704fb65d
3 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Yesod/Form.hs
View File

@ -98,6 +98,7 @@ import Data.Int (Int64)
import qualified Data.ByteString.Lazy.UTF8 as U import qualified Data.ByteString.Lazy.UTF8 as U
import Yesod.Widget import Yesod.Widget
import Control.Arrow ((&&&)) import Control.Arrow ((&&&))
import qualified Text.Email.Validate as Email
data FormResult a = FormMissing data FormResult a = FormMissing
| FormFailure [String] | FormFailure [String]
@ -820,7 +821,9 @@ jqueryAutocompleteFieldProfile src = FieldProfile
emailFieldProfile :: FieldProfile s y String emailFieldProfile :: FieldProfile s y String
emailFieldProfile = FieldProfile emailFieldProfile = FieldProfile
{ fpParse = Right -- FIXME validation { fpParse = \s -> if Email.isValid s
then Right s
else Left "Invalid e-mail address"
, fpRender = id , fpRender = id
, fpHamlet = \name val isReq -> [$hamlet| , fpHamlet = \name val isReq -> [$hamlet|
%input#$name$!name=$name$!type=email!:isReq:required!value=$val$ %input#$name$!name=$name$!type=email!:isReq:required!value=$val$

5
hellowidget.hs
View File

@ -35,7 +35,7 @@ getRootR = applyLayoutW $ flip wrapWidget wrapper $ do
addHead [$hamlet|%meta!keywords=haskell|] addHead [$hamlet|%meta!keywords=haskell|]
handleFormR = do handleFormR = do
(res, form, enctype) <- runFormPost $ (,,,,,,,) (res, form, enctype) <- runFormPost $ (,,,,,,,,)
<$> stringField (string "My Field") (string "Some tooltip info") Nothing <$> stringField (string "My Field") (string "Some tooltip info") Nothing
<*> stringField (string "Another field") (string "") (Just "some default text") <*> stringField (string "Another field") (string "") (Just "some default text")
<*> intField (string "A number field") (string "some nums") (Just 5) <*> intField (string "A number field") (string "some nums") (Just 5)
@ -46,8 +46,9 @@ handleFormR = do
(string "Autocomplete") (string "Try it!") Nothing (string "Autocomplete") (string "Try it!") Nothing
<*> nicHtmlField (string "HTML") (string "") <*> nicHtmlField (string "HTML") (string "")
(Just $ string "You can put rich text here") (Just $ string "You can put rich text here")
<*> maybeEmailField (string "An e-mail addres") mempty Nothing
let mhtml = case res of let mhtml = case res of
FormSuccess (_, _, _, _, _, _, _, x) -> Just x FormSuccess (_, _, _, _, _, _, _, x, _) -> Just x
_ -> Nothing _ -> Nothing
applyLayoutW $ do applyLayoutW $ do
addStyle [$hamlet|\.tooltip{color:#666;font-style:italic}|] addStyle [$hamlet|\.tooltip{color:#666;font-style:italic}|]

3
yesod.cabal
View File

@ -43,7 +43,8 @@ library
persistent >= 0.1.0 && < 0.2, persistent >= 0.1.0 && < 0.2,
neither >= 0.0.0 && < 0.1, neither >= 0.0.0 && < 0.1,
MonadCatchIO-transformers >= 0.2.2.0 && < 0.3, MonadCatchIO-transformers >= 0.2.2.0 && < 0.3,
data-object >= 0.3.1 && < 0.4 data-object >= 0.3.1 && < 0.4,
email-validate >= 0.2.5 && < 0.3
exposed-modules: Yesod exposed-modules: Yesod
Yesod.Content Yesod.Content
Yesod.Dispatch Yesod.Dispatch