yesod-form 1.4.7 → 1.4.7.1

raw patch · 2 files changed

+35/−1 lines, 2 filesdep ~persistent

Dependency ranges changed: persistent

Files

• Yesod/Form/Fields.hs +34/−0
• yesod-form.cabal +1/−1

@@ -1,3 +1,4 @@+{-# LANGUAGE ConstraintKinds #-} {-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE OverloadedStrings #-}@@ -74,7 +75,11 @@ import Data.Text.Encoding.Error (lenientDecode) import Network.URI (parseURI) import Database.Persist.Sql (PersistField, PersistFieldSql (..))+#if MIN_VERSION_persistent(2,5,0)+import Database.Persist (Entity (..), SqlType (SqlString), PersistRecordBackend, PersistQueryRead)+#else import Database.Persist (Entity (..), SqlType (SqlString))+#endif import Text.HTML.SanitizeXSS (sanitizeBalance) import Control.Monad (when, unless) import Data.Either (partitionEithers)@@ -645,6 +650,19 @@ -- >         <$> areq (selectField countries) "Which country do you live in?" Nothing -- >         where -- >           countries = optionsPersist [] [Asc CountryName] countryName+#if MIN_VERSION_persistent(2,5,0)+optionsPersist :: ( YesodPersist site+                  , PersistQueryRead backend+                  , PathPiece (Key a)+                  , RenderMessage site msg+                  , YesodPersistBackend site ~ backend+                  , PersistRecordBackend a backend+                  )+               => [Filter a]+               -> [SelectOpt a]+               -> (a -> msg)+               -> HandlerT site IO (OptionList (Entity a))+#else optionsPersist :: ( YesodPersist site, PersistEntity a                   , PersistQuery (PersistEntityBackend a)                   , PathPiece (Key a)@@ -655,6 +673,7 @@                -> [SelectOpt a]                -> (a -> msg)                -> HandlerT site IO (OptionList (Entity a))+#endif optionsPersist filts ords toDisplay = fmap mkOptionList $ do     mr <- getMessageRender     pairs <- runDB $ selectList filts ords@@ -668,8 +687,22 @@ -- the entire 'Entity'. -- -- Since 1.3.2+#if MIN_VERSION_persistent(2,5,0) optionsPersistKey   :: (YesodPersist site+     , PersistQueryRead backend+     , PathPiece (Key a)+     , RenderMessage site msg+     , backend ~ YesodPersistBackend site+     , PersistRecordBackend a backend+     )+  => [Filter a]+  -> [SelectOpt a]+  -> (a -> msg)+  -> HandlerT site IO (OptionList (Key a))+#else+optionsPersistKey+  :: (YesodPersist site      , PersistEntity a      , PersistQuery (PersistEntityBackend a)      , PathPiece (Key a)@@ -680,6 +713,7 @@   -> [SelectOpt a]   -> (a -> msg)   -> HandlerT site IO (OptionList (Key a))+#endif  optionsPersistKey filts ords toDisplay = fmap mkOptionList $ do     mr <- getMessageRender

@@ -1,5 +1,5 @@ name:            yesod-form-version:         1.4.7+version:         1.4.7.1 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>