Skip to content
Browse files

Merge branch 'master' of https://github.com/LukeHoersten/snap-extensi…

…on-mongodb into LukeHoersten-master
  • Loading branch information...
2 parents f9e8a95 + 7561893 commit df2197d4349e11f8da9007627f61e6043e369c3c @ozataman committed Dec 22, 2010
Showing with 5 additions and 5 deletions.
  1. +5 −5 src/Snap/Extension/MongoDB/MongoDB.hs
View
10 src/Snap/Extension/MongoDB/MongoDB.hs
@@ -25,7 +25,7 @@ import Snap.Extension.MongoDB
-- | MongoDB State
data MongoDBState = MongoDBState
{ connPool :: ConnPool Host
- , appDatabase :: Database
+ , appDatabase :: Database
}
@@ -42,12 +42,12 @@ class HasMongoDBState s where
------------------------------------------------------------------------------
-- |
mongoDBInitializer :: Host
- -> Int
- -> UString
- -> Initializer MongoDBState
+ -> Int
+ -> UString
+ -> Initializer MongoDBState
mongoDBInitializer h n db = do
mongoState <- liftIO $ do
- pool <- newConnPool n h
+ pool <- newConnPool Internet n h
return $ MongoDBState pool (Database db)
mkInitializer mongoState

0 comments on commit df2197d

Please sign in to comment.
Something went wrong with that request. Please try again.