yesod-crud-persist 0.1.0.0 → 0.1.1

raw patch · 4 files changed

+34/−38 lines, 4 filesdep ~yesod-corePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: yesod-core

API changes (from Hackage documentation)

- Yesod.Crud.Internal: stripHandlerT :: HandlerT child (HandlerT parent m) a -> (parent -> child) -> (Route child -> Route parent) -> Maybe (Route child) -> HandlerT parent m a

- Yesod.Crud.Internal: subHelper :: Monad m => HandlerT child (HandlerT parent m) TypedContent -> YesodSubRunnerEnv child parent (HandlerT parent m) -> Maybe (Route child) -> Application

- Yesod.Crud.Simple: simpleCrudToCrudHandler :: PersistEntityBackend a ~ YesodPersistBackend master => PersistEntity a => PersistStore (YesodPersistBackend master) => YesodPersist master => RenderMessage master FormMessage => SimpleCrud master a -> Crud master a

+ Yesod.Crud.Simple: simpleCrudToCrud :: PersistEntityBackend a ~ YesodPersistBackend master => PersistEntity a => PersistStore (YesodPersistBackend master) => YesodPersist master => RenderMessage master FormMessage => SimpleCrud master a -> Crud master a

- Yesod.Crud.Simple: scAdd :: Lens' (SimpleCrud master_avQ7 a_avQ8) (WidgetT master_avQ7 IO () -> HandlerT (Crud master_avQ7 a_avQ8) (HandlerT master_avQ7 IO) Html)

+ Yesod.Crud.Simple: scAdd :: Lens' (SimpleCrud master_ahOI a_ahOJ) (WidgetT master_ahOI IO () -> HandlerT (Crud master_ahOI a_ahOJ) (HandlerT master_ahOI IO) Html)

- Yesod.Crud.Simple: scDelete :: Lens' (SimpleCrud master_avQ7 a_avQ8) (WidgetT master_avQ7 IO () -> HandlerT (Crud master_avQ7 a_avQ8) (HandlerT master_avQ7 IO) Html)

+ Yesod.Crud.Simple: scDelete :: Lens' (SimpleCrud master_ahOI a_ahOJ) (WidgetT master_ahOI IO () -> HandlerT (Crud master_ahOI a_ahOJ) (HandlerT master_ahOI IO) Html)

- Yesod.Crud.Simple: scDeleteForm :: Lens' (SimpleCrud master_avQ7 a_avQ8) (WidgetT master_avQ7 IO ())

+ Yesod.Crud.Simple: scDeleteForm :: Lens' (SimpleCrud master_ahOI a_ahOJ) (WidgetT master_ahOI IO ())

- Yesod.Crud.Simple: scEdit :: Lens' (SimpleCrud master_avQ7 a_avQ8) (WidgetT master_avQ7 IO () -> HandlerT (Crud master_avQ7 a_avQ8) (HandlerT master_avQ7 IO) Html)

+ Yesod.Crud.Simple: scEdit :: Lens' (SimpleCrud master_ahOI a_ahOJ) (WidgetT master_ahOI IO () -> HandlerT (Crud master_ahOI a_ahOJ) (HandlerT master_ahOI IO) Html)

- Yesod.Crud.Simple: scForm :: Lens' (SimpleCrud master_avQ7 a_avQ8) (Maybe a_avQ8 -> Html -> MForm (HandlerT master_avQ7 IO) (FormResult a_avQ8, WidgetT master_avQ7 IO ()))

+ Yesod.Crud.Simple: scForm :: Lens' (SimpleCrud master_ahOI a_ahOJ) (Maybe a_ahOJ -> Html -> MForm (HandlerT master_ahOI IO) (FormResult a_ahOJ, WidgetT master_ahOI IO ()))

- Yesod.Crud.Simple: scFormWrap :: Lens' (SimpleCrud master_avQ7 a_avQ8) (Enctype -> Route master_avQ7 -> WidgetT master_avQ7 IO () -> WidgetT master_avQ7 IO ())

+ Yesod.Crud.Simple: scFormWrap :: Lens' (SimpleCrud master_ahOI a_ahOJ) (Enctype -> Route master_ahOI -> WidgetT master_ahOI IO () -> WidgetT master_ahOI IO ())

- Yesod.Crud.Simple: scIndex :: Lens' (SimpleCrud master_avQ7 a_avQ8) (HandlerT (Crud master_avQ7 a_avQ8) (HandlerT master_avQ7 IO) Html)

+ Yesod.Crud.Simple: scIndex :: Lens' (SimpleCrud master_ahOI a_ahOJ) (HandlerT (Crud master_ahOI a_ahOJ) (HandlerT master_ahOI IO) Html)

src/Yesod/Crud.hs view

@@ -14,8 +14,6 @@ import Network.Wai (pathInfo, requestMethod) import qualified Data.List as List -import Yesod.Crud.Internal --remove this when my PR is accepted- data Crud master a = Crud   { _chAdd    :: HandlerT (Crud master a) (HandlerT master IO) Html   , _chIndex  :: HandlerT (Crud master a) (HandlerT master IO) Html

src/Yesod/Crud/Internal.hs view

@@ -1,32 +1,32 @@ module Yesod.Crud.Internal where  -- import ClassyPrelude.Yesod-import Yesod.Core-import Yesod.Core.Types-import qualified Network.Wai as W--subHelper :: Monad m -          => HandlerT child (HandlerT parent m) TypedContent-          -> YesodSubRunnerEnv child parent (HandlerT parent m)-          -> Maybe (Route child)-          -> W.Application-subHelper handlert YesodSubRunnerEnv {..} route =-    ysreParentRunner base ysreParentEnv (fmap ysreToParentRoute route)-  where-    base = stripHandlerT (fmap toTypedContent handlert) ysreGetSub ysreToParentRoute route--stripHandlerT :: HandlerT child (HandlerT parent m) a-              -> (parent -> child)-              -> (Route child -> Route parent)-              -> Maybe (Route child)-              -> HandlerT parent m a-stripHandlerT (HandlerT f) getSub toMaster newRoute = HandlerT $ \hd -> do-    let env = handlerEnv hd-    ($ hd) $ unHandlerT $ f hd-        { handlerEnv = env-            { rheSite = getSub $ rheSite env-            , rheRoute = newRoute-            , rheRender = \url params -> rheRender env (toMaster url) params-            }-        , handlerToParent = toMaster-        }+-- import Yesod.Core+-- import Yesod.Core.Types+-- import qualified Network.Wai as W+-- +-- subHelper :: Monad m +--           => HandlerT child (HandlerT parent m) TypedContent+--           -> YesodSubRunnerEnv child parent (HandlerT parent m)+--           -> Maybe (Route child)+--           -> W.Application+-- subHelper handlert YesodSubRunnerEnv {..} route =+--     ysreParentRunner base ysreParentEnv (fmap ysreToParentRoute route)+--   where+--     base = stripHandlerT (fmap toTypedContent handlert) ysreGetSub ysreToParentRoute route+-- +-- stripHandlerT :: HandlerT child (HandlerT parent m) a+--               -> (parent -> child)+--               -> (Route child -> Route parent)+--               -> Maybe (Route child)+--               -> HandlerT parent m a+-- stripHandlerT (HandlerT f) getSub toMaster newRoute = HandlerT $ \hd -> do+--     let env = handlerEnv hd+--     ($ hd) $ unHandlerT $ f hd+--         { handlerEnv = env+--             { rheSite = getSub $ rheSite env+--             , rheRoute = newRoute+--             , rheRender = \url params -> rheRender env (toMaster url) params+--             }+--         , handlerToParent = toMaster+--         }

src/Yesod/Crud/Simple.hs view

@@ -75,15 +75,13 @@                       <a href="@{tp (DeleteR theId)}">Delete           |] --- defFormWrap--simpleCrudToCrudHandler :: PersistEntityBackend a ~ YesodPersistBackend master+simpleCrudToCrud :: PersistEntityBackend a ~ YesodPersistBackend master   => PersistEntity a   => PersistStore (YesodPersistBackend master)   => YesodPersist master   => RenderMessage master FormMessage   => SimpleCrud master a -> Crud master a-simpleCrudToCrudHandler (SimpleCrud add index edit del delForm form wrap) = +simpleCrudToCrud (SimpleCrud add index edit del delForm form wrap) =    Crud addH indexH editH delH   where    indexH = index

yesod-crud-persist.cabal view

@@ -2,10 +2,10 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                yesod-crud-persist-version:             0.1.0.0+version:             0.1.1 synopsis:            Flexible CRUD subsite usable with Yesod and Persistent. description:         Flexible CRUD subsite usable with Yesod and Persistent.-homepage:            google.com+homepage:            https://github.com/andrewthad/yesod-crud-persist license:             MIT license-file:        LICENSE author:              Andrew Martin@@ -18,7 +18,7 @@  library   build-depends:       base         >= 4.3 && < 5.0-                     , yesod-core   >= 1.2+                     , yesod-core   >= 1.4.11                      , yesod-form   >= 1.2                      , yesod-persistent >= 1.2                      , persistent >= 1.2