Permalink
Browse files

Added expected first argument "network type" to "newConnPool" to fix …

…compile error.
  • Loading branch information...
1 parent 7f00b97 commit 75618931711face558078f41fcb88524bb0e44d8 @LukeHoersten LukeHoersten committed Dec 22, 2010
Showing with 5 additions and 5 deletions.
  1. +5 −5 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 7561893

Please sign in to comment.