haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add mongo connection loader

Browse Source
This commit is contained in:
patrick brisbin 2011-09-11 13:06:53 -04:00
parent 80314a4027
commit 256245cd2b
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
yesod-core/Yesod/Settings.hs
View File

@ -1,3 +1,4 @@
{-# OPTIONS -fno-warn-missing-signatures #-}
{-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE QuasiQuotes #-}
module Yesod.Settings module Yesod.Settings
( AppEnvironment(..) ( AppEnvironment(..)
@ -5,6 +6,7 @@ module Yesod.Settings
, loadConfig , loadConfig
, loadPostgresqlConnStr , loadPostgresqlConnStr
, loadSqliteConnStr , loadSqliteConnStr
, loadMongoConnParams
) where ) where
import Control.Monad (join) import Control.Monad (join)
@ -66,4 +68,11 @@ loadSqliteConnStr env = do
settings <- lookupMapping (show env) allSettings settings <- lookupMapping (show env) allSettings
lookupScalar "database" settings lookupScalar "database" settings
-- TODO: Mongo -- note: no type signature to avoid Persistent.MongoDB dep
--loadMongoConnParams :: AppEnvironment -> IO (Database, HostName)
loadMongoConnParams env = do
allSettings <- (join $ YAML.decodeFile ("config/mongoDB.yml" :: String)) >>= fromMapping
settings <- lookupMapping (show env) allSettings
database <- lookupScalar "database" settings
host <- lookupScalar "host" settings
return (database, host)