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

Removing a function I ended up not needing.

Browse Source
This commit is contained in:
DavidM 2011-06-21 16:38:57 -04:00
parent dc1a532225
commit d2becab26a
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Yesod/Form/Jquery.hs
View File

@ -63,11 +63,6 @@ class YesodJquery a where
urlJqueryUiDateTimePicker :: a -> Either (Route a) Text
urlJqueryUiDateTimePicker _ = Right "http://github.com/gregwebs/jquery.ui.datetimepicker/raw/master/jquery.ui.datetimepicker.js"
blankMulti :: (Text -> Either msg a) -> Maybe Text -> Either msg (Maybe a)
blankMulti _ Nothing = Right Nothing
blankMulti _ (Just "") = Right Nothing
blankMulti f (Just t) = either Left (Right . Just) $ f t
blank :: (Text -> Either msg a) -> [Text] -> Either msg (Maybe a)
blank _ [] = Right Nothing
blank _ ("":_) = Right Nothing