diff --git a/Yesod/Goodies/PNotify.hs b/Yesod/Goodies/PNotify.hs
--- a/Yesod/Goodies/PNotify.hs
+++ b/Yesod/Goodies/PNotify.hs
@@ -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
diff --git a/yesod-pnotify.cabal b/yesod-pnotify.cabal
--- a/yesod-pnotify.cabal
+++ b/yesod-pnotify.cabal
@@ -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
-