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

…compile error.
ozataman · Dec 22, 2010 · 7561893 · 7561893
1 parent 7f00b97
commit 7561893
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/Snap/Extension/MongoDB/MongoDB.hs b/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