yesod-pnotify 0.4.1.0 → 0.4.2.0

raw patch · 2 files changed

+6/−27 lines, 2 filesdep −resourcetPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependencies removed: resourcet

API changes (from Hackage documentation)

Files

• Yesod/Goodies/PNotify.hs +5/−24
• yesod-pnotify.cabal +1/−3

@@ -1,4 +1,4 @@-{-# LANGUAGE OverloadedStrings, QuasiQuotes, TemplateHaskell, MultiParamTypeClasses, TypeFamilies, FlexibleContexts #-}+{-# LANGUAGE OverloadedStrings, QuasiQuotes, TemplateHaskell, MultiParamTypeClasses, TypeFamilies #-} module Yesod.Goodies.PNotify         ( PNotify(..)        , NotifyType(..)@@ -17,7 +17,6 @@ import Data.Monoid ((<>), mempty) import qualified Data.Text as T import qualified Data.Text.Lazy as TL-import Control.Monad.Trans.Resource import Control.Monad.Trans.Maybe import Data.Char (toLower) import Text.Julius (RawJS(..))@@ -47,39 +46,21 @@ notifyKey :: Text notifyKey = "_PNotify" -_setPNotify :: (MonadThrow m, -                MonadUnsafeIO m,-                MonadBaseControl IO m,-                MonadIO m) => -               [PNotify] -> HandlerT site m ()+_setPNotify :: [PNotify] -> HandlerT site IO () _setPNotify = setSession notifyKey . T.concat . TL.toChunks . TL.pack . show -getPNotify :: (MonadThrow m, -               MonadUnsafeIO m,-               MonadBaseControl IO m,-               MonadIO m) => -              HandlerT site m (Maybe [PNotify])+getPNotify :: HandlerT site IO (Maybe [PNotify]) getPNotify = runMaybeT $ do   ns <- MaybeT $ lookupSession notifyKey   lift $ deleteSession notifyKey   return $ read $ T.unpack ns -setPNotify :: (Monad m,-               MonadThrow m,-               MonadUnsafeIO m,-               MonadBaseControl IO m,-               MonadIO m) =>-              PNotify -> HandlerT site m ()+setPNotify :: PNotify -> HandlerT site IO () setPNotify n = do   mns <- getPNotify   _setPNotify (n:maybe [] id mns) -pnotify :: (YesodJqueryPnotify site, -            MonadThrow m, -            MonadUnsafeIO m, -            MonadBaseControl IO m,-            MonadIO m) => -           site -> WidgetT site m ()+pnotify :: YesodJqueryPnotify site => site -> WidgetT site IO () pnotify y = do   mnotify <- handlerToWidget getPNotify   case mnotify of

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                yesod-pnotify-version:             0.4.1.0+version:             0.4.2.0 synopsis:            Yet another getMessage/setMessage using pnotify jquery plugins description:         Yet another getMessage/setMessage using pnotify jquery plugins homepage:            https://github.com/cutsea110/yesod-pnotify@@ -24,5 +24,3 @@                        , text >= 0.11 && < 0.12                        , transformers >= 0.3 && < 0.4                        , shakespeare-js >= 1.1 && < 1.2-                       , resourcet >= 0.4 && < 0.5-