Added note about the (.) from Control.Category to the documentation.

README.md

@@ -35,7 +35,7 @@ We will follow the common Snap project structure.
     import Snap.Snaplet.MongoDB.Core
 
     import Control.Category
-    import Prelude hiding ((.))
+    import Prelude hiding ((.)) -- The (.) is used in getMongoDB definition.
 
     data App = App
         { _heist :: Snaplet (Heist App)

src/Snap/Snaplet/MongoDB/Core.hs

@@ -29,6 +29,8 @@ data MongoDB = MongoDB
 -- instance HasMongoDB App where
 --     getMongoDB = getL (snapletValue . database)
 -- @
+--
+-- Note: The (.) is from Control.Category.
 class HasMongoDB app where
     getMongoDB :: app -> MongoDB
 

src/Snap/Snaplet/MongoDB/Functions.hs

@@ -37,8 +37,9 @@ description = "Minimalistic MongoDB Snaplet."
 -- @
 -- app :: SnapletInit App App
 -- app = makeSnaplet "app" "An snaplet example application." Nothing $ do
+--     h <- nestSnaplet "heist" heist $ heistInit "resources/templates"
 --     d <- nestSnaplet "database" database $ mongoDBInit 10 (host "127.0.0.1") "Snaplet-MongoDB"
---     return $ App d
+--     return $ App h d
 -- @
 mongoDBInit :: Int -> Host -> Database -> SnapletInit app MongoDB
 mongoDBInit n h d = makeSnaplet "snaplet-mongodb" description Nothing $ do