Remove -text dep, make Postgresql work...

This commit is contained in:
patrick brisbin 2011-09-21 17:29:55 -04:00
parent df52b8a340
commit cfb11cca89
2 changed files with 3 additions and 5 deletions

View File

@ -30,8 +30,7 @@ data AppConfig e = AppConfig
-- | Information required to connect to a postgres database
data PostgresConf = PostgresConf
{ pgConnStr :: String
, pgDatabase :: String
{ pgConnStr :: Text
, pgPoolSize :: Int
}
@ -126,11 +125,11 @@ loadPostgresql env = withYamlEnvironment "config/postgresql.yml" env $ \e -> do
-- TODO: default host/port?
connparts <- forM ["user", "password", "host", "port"] $ \k -> do
v <- lookupScalar k e
return $ k ++ "=" ++ v
return $ k ++ "=" ++ v ++ " "
conn <- return $ concat connparts
return $ PostgresConf conn db pool
return $ PostgresConf (T.pack $ conn ++ " dbname=" ++ db) pool
-- | Load a @'SqliteConf'@ from @config\/sqlite.yml@.
--

View File

@ -38,7 +38,6 @@ library
, shakespeare >= 0.10 && < 0.11
, shakespeare-js >= 0.10 && < 0.11
, shakespeare-css >= 0.10 && < 0.11
, shakespeare-text >= 0.10 && < 0.11
, blaze-builder >= 0.2.1 && < 0.4
, transformers >= 0.2 && < 0.3
, clientsession >= 0.7.2 && < 0.8