diff --git a/snaplet-mongodb-minimalistic.cabal b/snaplet-mongodb-minimalistic.cabal
--- a/snaplet-mongodb-minimalistic.cabal
+++ b/snaplet-mongodb-minimalistic.cabal
@@ -1,5 +1,5 @@
 name:           snaplet-mongodb-minimalistic
-version:        0.0.1
+version:        0.0.2
 synopsis:       Minimalistic MongoDB Snaplet.
 description:    Minimalistic MongoDB Snaplet.
 license:        BSD3
diff --git a/src/Snap/Snaplet/MongoDB/Core.hs b/src/Snap/Snaplet/MongoDB/Core.hs
--- a/src/Snap/Snaplet/MongoDB/Core.hs
+++ b/src/Snap/Snaplet/MongoDB/Core.hs
@@ -1,31 +1,13 @@
-{-# LANGUAGE OverloadedStrings         #-}
-{-# LANGUAGE FlexibleInstances         #-}
-{-# LANGUAGE ExistentialQuantification #-}
-{-# LANGUAGE MultiParamTypeClasses     #-}
-{-# LANGUAGE FunctionalDependencies    #-}
-{-# LANGUAGE FlexibleContexts          #-}
-{-# LANGUAGE TypeFamilies              #-}
-
 module Snap.Snaplet.MongoDB.Core
 ( MongoDB(..)
 , HasMongoDB(..)
-, mongoDBInit
 ) where
 
-import            Data.Text (Text)
-
-import            Snap
-
 import            Database.MongoDB
 import            System.IO.Pool
 
 ------------------------------------------------------------------------------
 -- |
-description :: Text
-description = "Minimalistic MongoDB Snaplet"
-
-------------------------------------------------------------------------------
--- |
 data MongoDB = MongoDB
     { mongoPool     :: Pool IOError Pipe
     , mongoDatabase :: Database
@@ -35,10 +17,4 @@
 -- |
 class HasMongoDB app where
     getMongoDB :: app -> MongoDB
-
-------------------------------------------------------------------------------
--- |
-mongoDBInit :: Int -> Host -> Database -> SnapletInit app MongoDB
-mongoDBInit n h d = makeSnaplet "snaplet-mongodb" description Nothing $ do
-    pool <- liftIO $ newPool (Factory (connect h) close isClosed) n
-    return $ MongoDB pool d
+    
diff --git a/src/Snap/Snaplet/MongoDB/Functions.hs b/src/Snap/Snaplet/MongoDB/Functions.hs
--- a/src/Snap/Snaplet/MongoDB/Functions.hs
+++ b/src/Snap/Snaplet/MongoDB/Functions.hs
@@ -1,9 +1,11 @@
+{-# LANGUAGE OverloadedStrings     #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE FlexibleInstances     #-}
 {-# LANGUAGE UndecidableInstances  #-}
 
 module Snap.Snaplet.MongoDB.Functions
-( eitherWithDB'
+( mongoDBInit
+, eitherWithDB'
 , eitherWithDB
 , maybeWithDB
 , maybeWithDB'
@@ -11,6 +13,7 @@
 , unsafeWithDB'
 ) where
 
+import            Data.Text (Text)
 import            Control.Monad.Error
 
 import            Snap
@@ -19,6 +22,18 @@
 import            Database.MongoDB
 import            System.IO.Pool
 
+------------------------------------------------------------------------------
+-- |
+description :: Text
+description = "Minimalistic MongoDB Snaplet"
+
+------------------------------------------------------------------------------
+-- |
+mongoDBInit :: Int -> Host -> Database -> SnapletInit app MongoDB
+mongoDBInit n h d = makeSnaplet "snaplet-mongodb" description Nothing $ do
+    pool <- liftIO $ newPool (Factory (connect h) close isClosed) n
+    return $ MongoDB pool d
+
 class (MonadIO m, MonadState app m, HasMongoDB app) => HasMongoDB' app m
 instance (MonadIO m, MonadState app m, HasMongoDB app) => HasMongoDB' app m
 
@@ -60,3 +75,4 @@
     case ep of
          Left  err -> return $ Left $ ConnectionFailure err
          Right pip -> liftIO $ access pip mode database action
+