diff --git a/README.org b/README.org
--- a/README.org
+++ b/README.org
@@ -5,6 +5,14 @@
   =snaplet-amqp= provides a convenience interface to the Haskell AMQP
   package.
 
+  Because the AMQP package doesn't provide its own connection pooling
+  mechanism, this snaplet uses the =resource-pool= package to create a
+  pool of ten connections (only connections, not channels).
+
+  When the =runAmqp= function is used a connection from the pool is
+  leased, a channel is created and both the connection and channel are
+  applied to the supplied action.
+
   #+BEGIN_SRC
   {-# LANGUAGE FlexibleInstances #-}
   {-# LANGUAGE OverloadedStrings #-}
diff --git a/snaplet-amqp.cabal b/snaplet-amqp.cabal
--- a/snaplet-amqp.cabal
+++ b/snaplet-amqp.cabal
@@ -1,5 +1,5 @@
 Name:                snaplet-amqp
-Version:             1.0.0.0
+Version:             1.0.1.0
 Synopsis:            Snap framework snaplet for the AMQP library
 Homepage:            https://github.com/ixmatus/snaplet-amqp
 License:             BSD3
diff --git a/src/Snap/Snaplet/AMQP.hs b/src/Snap/Snaplet/AMQP.hs
--- a/src/Snap/Snaplet/AMQP.hs
+++ b/src/Snap/Snaplet/AMQP.hs
@@ -44,11 +44,11 @@
 -- | Initialize the AMQP Snaplet.
 initAMQP :: SnapletInit b AmqpState
 initAMQP = makeSnaplet "amqp" description datadir $ do
-    c <- mkSnapletAmqpPoolonn
+    p <- mkSnapletAmqpPool
 
-    -- onUnload (closeConnection $ fst c)
+    onUnload (destroyAllResources p)
 
-    return $ AmqpState c
+    return $ AmqpState p
 
   where
     description = "Snaplet for AMQP library"
@@ -56,8 +56,8 @@
 
 -------------------------------------------------------------------------------
 -- | Constructs a connection in a snaplet context.
-mkSnapletAmqpPoolonn :: (MonadIO (m b v), MonadSnaplet m) => m b v AmqpPool
-mkSnapletAmqpPoolonn = do
+mkSnapletAmqpPool :: (MonadIO (m b v), MonadSnaplet m) => m b v AmqpPool
+mkSnapletAmqpPool = do
   conf <- getSnapletUserConfig
   mkAmqpPool conf