yesod-form 1.3.15.2 → 1.3.15.3

raw patch · 2 files changed

+27/−3 lines, 2 filesdep ~persistent

Dependency ranges changed: persistent

Files

• Yesod/Form/Fields.hs +25/−1
• yesod-form.cabal +2/−2

@@ -75,7 +75,11 @@ import qualified Blaze.ByteString.Builder.Html.Utf8 as B import Blaze.ByteString.Builder (writeByteString, toLazyByteString) import Blaze.ByteString.Builder.Internal.Write (fromWriteList)+#if MIN_VERSION_persistent(2, 0, 0)+import Database.Persist (PersistEntityBackend)+#else import Database.Persist (PersistMonadBackend, PersistEntityBackend)+#endif  import Text.Blaze.Html.Renderer.String (renderHtml) import qualified Data.ByteString as S@@ -555,12 +559,21 @@ optionsEnum :: (MonadHandler m, Show a, Enum a, Bounded a) => m (OptionList a) optionsEnum = optionsPairs $ map (\x -> (pack $ show x, x)) [minBound..maxBound] +#if MIN_VERSION_persistent(2, 0, 0) optionsPersist :: ( YesodPersist site, PersistEntity a+                  , PersistQuery (PersistEntityBackend a)+                  , PathPiece (Key a)+                  , RenderMessage site msg+                  , YesodPersistBackend site ~ PersistEntityBackend a+                  )+#else+optionsPersist :: ( YesodPersist site, PersistEntity a                   , PersistQuery (YesodPersistBackend site (HandlerT site IO))                   , PathPiece (Key a)                   , PersistEntityBackend a ~ PersistMonadBackend (YesodPersistBackend site (HandlerT site IO))                   , RenderMessage site msg                   )+#endif                => [Filter a]                -> [SelectOpt a]                -> (a -> msg)@@ -578,13 +591,24 @@ -- the entire @Entity@. -- -- Since 1.3.2+#if MIN_VERSION_persistent(2, 0, 0) optionsPersistKey   :: (YesodPersist site      , PersistEntity a+     , PersistQuery (PersistEntityBackend a)+     , PathPiece (Key a)+     , RenderMessage site msg+     , YesodPersistBackend site ~ PersistEntityBackend a+     )+#else+optionsPersistKey+  :: (YesodPersist site+     , PersistEntity a      , PersistQuery (YesodPersistBackend site (HandlerT site IO))      , PathPiece (Key a)      , RenderMessage site msg-     , PersistEntityBackend a ~ PersistMonadBackend (YesodPersistBackend site (HandlerT site IO)))+     , PersistEntityBackend a ~ PersistMonadBackend (YesodDB site))+#endif   => [Filter a]   -> [SelectOpt a]   -> (a -> msg)

@@ -1,5 +1,5 @@ name:            yesod-form-version:         1.3.15.2+version:         1.3.15.3 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>@@ -25,7 +25,7 @@                    , shakespeare                    , shakespeare-css       >= 1.0                    , shakespeare-js        >= 1.0.2-                   , persistent            >= 1.2      && < 1.4+                   , persistent            >= 1.2      && < 2.1                    , template-haskell                    , transformers          >= 0.2.2                    , data-default