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

make sqlite db a Text

Browse Source
This commit is contained in:
patrick brisbin 2011-09-21 18:52:08 -04:00
parent cfb11cca89
commit b13875b8a6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-core/Yesod/Config.hs
View File

@ -36,7 +36,7 @@ data PostgresConf = PostgresConf
-- | Information required to connect to a sqlite database -- | Information required to connect to a sqlite database
data SqliteConf = SqliteConf data SqliteConf = SqliteConf
{ sqlDatabase :: String { sqlDatabase :: Text
, sqlPoolSize :: Int , sqlPoolSize :: Int
} }
@ -142,7 +142,7 @@ loadSqlite env = withYamlEnvironment "config/sqlite.yml" env $ \e -> do
db <- lookupScalar "database" e db <- lookupScalar "database" e
pool <- safeRead =<< lookupScalar "poolsize" e pool <- safeRead =<< lookupScalar "poolsize" e
return $ SqliteConf db pool return $ SqliteConf (T.pack db) pool
-- | Load a @'MongoConf'@ from @config\/mongoDB.yml@. -- | Load a @'MongoConf'@ from @config\/mongoDB.yml@.
-- --