diff --git a/CHANGELOG.md b/CHANGELOG.md
new file mode 100644
--- /dev/null
+++ b/CHANGELOG.md
@@ -0,0 +1,21 @@
+# 0.4
+
+* Update heist dependency to 0.14
+* Bump lens depdenency upper bounds
+* Bump configurator dependency upper bounds
+* Bump resourcet dependency upper bounds
+* Bump transformers dependency upper bounds
+
+# 0.3
+
+* Update heist dependency to 0.13
+
+# 0.2.0.1
+
+* Cabal metadata update
+
+# 0.2
+
+* Update heist dependency to 0.12
+* Bump lens dependency upper bounds
+* Various bug fixes
diff --git a/snaplet-persistent.cabal b/snaplet-persistent.cabal
--- a/snaplet-persistent.cabal
+++ b/snaplet-persistent.cabal
@@ -1,5 +1,5 @@
 name:           snaplet-persistent
-version:        0.3
+version:        0.4
 synopsis:       persistent snaplet for the Snap Framework
 description:    Snaplet support for using the Postgresql database
                 with a Snap Framework application via the persistent
@@ -13,7 +13,8 @@
 homepage:       https://github.com/soostone/snaplet-persistent
 category:       Web, Snap
 
-extra-source-files:  LICENSE
+extra-source-files:  LICENSE,
+                     CHANGELOG.md
 
 data-files:
   schema.txt
@@ -32,16 +33,16 @@
     Snap.Snaplet.Auth.Backends.Persistent
 
   other-modules:
-    Snap.Snaplet.Auth.Backends.Persistent.Types 
+    Snap.Snaplet.Auth.Backends.Persistent.Types
     Paths_snaplet_persistent
 
   build-depends:
     base                       >= 4       && < 5,
     bytestring                 >= 0.9.1   && < 0.11,
     clientsession              >= 0.7.2   && < 0.10,
-    configurator               >= 0.2     && < 0.3,
-    heist                      >= 0.13    && < 0.14,
-    lens                       >= 3.7.0.1 && < 4.1,
+    configurator               >= 0.2     && < 0.4,
+    heist                      >= 0.14    && < 0.15,
+    lens                       >= 3.7.6   && < 4.5,
     errors                     >= 1.4     && < 1.5,
     MonadCatchIO-transformers  >= 0.3     && < 0.4,
     monad-logger               >= 0.2.4   && < 0.4,
@@ -51,12 +52,12 @@
     persistent-template        >= 1.2     && < 1.4,
     readable                   >= 0.1     && < 0.3,
     resource-pool-catchio      >= 0.2     && < 0.3,
-    resourcet                  >= 0.4     && < 0.5,
+    resourcet                  >= 0.4     && < 1.2,
     safe                       >= 0.3     && < 0.4,
     snap                       >= 0.13    && < 0.14,
     text                       >= 0.11    && < 1.2,
     time                       >= 1.1     && < 1.5,
-    transformers               >= 0.2     && < 0.4,
+    transformers               >= 0.2     && < 0.5,
     unordered-containers       >= 0.2     && < 0.3
 
 
diff --git a/src/Snap/Snaplet/Auth/Backends/Persistent.hs b/src/Snap/Snaplet/Auth/Backends/Persistent.hs
--- a/src/Snap/Snaplet/Auth/Backends/Persistent.hs
+++ b/src/Snap/Snaplet/Auth/Backends/Persistent.hs
@@ -107,7 +107,7 @@
 -- 'AuthUser'.
 dbUserSplices :: Monad n
               => Splices (RuntimeSplice n (Entity SnapAuthUser) -> Splice n)
-dbUserSplices = mapS (deferMap (return . db2au)) userCSplices
+dbUserSplices = mapV (deferMap (return . db2au)) userCSplices
 
 
 data PersistAuthManager = PAM {
diff --git a/src/Snap/Snaplet/Auth/Backends/Persistent/Types.hs b/src/Snap/Snaplet/Auth/Backends/Persistent/Types.hs
--- a/src/Snap/Snaplet/Auth/Backends/Persistent/Types.hs
+++ b/src/Snap/Snaplet/Auth/Backends/Persistent/Types.hs
@@ -12,7 +12,6 @@
 ------------------------------------------------------------------------------
 import           Data.Text                    (Text)
 import           Data.Time
-import           Database.Persist
 import           Database.Persist.Quasi
 import           Database.Persist.TH          hiding (derivePersistField)
 ------------------------------------------------------------------------------
diff --git a/src/Snap/Snaplet/Persistent.hs b/src/Snap/Snaplet/Persistent.hs
--- a/src/Snap/Snaplet/Persistent.hs
+++ b/src/Snap/Snaplet/Persistent.hs
@@ -121,7 +121,7 @@
 -- | Run a database action
 withPool :: MonadIO m
          => ConnectionPool
-         -> SqlPersist (ResourceT (NoLoggingT IO)) a -> m a
+         -> SqlPersistT (ResourceT (NoLoggingT IO)) a -> m a
 withPool cp f = liftIO . runNoLoggingT . runResourceT $ runSqlPool f cp