Permalink
Browse files

Fixed documentation

  • Loading branch information...
1 parent 22120a2 commit 39ec157782ec60cd015451e0cd095f3a9eb6aaff Alfredo Di Napoli committed Feb 17, 2013
Showing with 2 additions and 4 deletions.
  1. +1 −1 examples/example1/src/Application.hs
  2. +1 −3 src/Snap/Snaplet/MongoDB/Core.hs
@@ -23,5 +23,5 @@ instance HasHeist App where
-- This is ugly, how to beautify it?
instance HasMongoDB App where
- getMongoDB app = view snapletValue (view (database) app)
+ getMongoDB app = view snapletValue (view database app)
@@ -49,9 +49,7 @@ data MongoDB = MongoDB
-- Usage:
--
-- > instance HasMongoDB App where
--- > getMongoDB = getL (snapletValue . database)
---
--- Note: The @(.)@ is from 'Control.Category'.
+-- > getMongoDB app = view snapletValue (view database app)
class HasMongoDB a where
getMongoDB :: a -> MongoDB

0 comments on commit 39ec157

Please sign in to comment.