From d2becab26a2f3d1f80483811680cb5b85a91261e Mon Sep 17 00:00:00 2001 From: DavidM Date: Tue, 21 Jun 2011 16:38:57 -0400 Subject: [PATCH] Removing a function I ended up not needing. --- Yesod/Form/Jquery.hs | 5 ----- 1 file changed, 5 deletions(-) diff --git a/Yesod/Form/Jquery.hs b/Yesod/Form/Jquery.hs index 40d7984f..10c3ff58 100644 --- a/Yesod/Form/Jquery.hs +++ b/Yesod/Form/Jquery.hs @@ -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