fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix build

Browse Source
This commit is contained in:
Gregor Kleen 2019-04-27 10:28:25 +02:00
parent 60d6d2eda5
commit 996d04574f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Application.hs
View File

@ -169,11 +169,11 @@ makeFoundation appSettings'@AppSettings{..} = do
smtpPool <- for appSmtpConf $ \c -> do smtpPool <- for appSmtpConf $ \c -> do
$logDebugS "setup" "SMTP-Pool" $logDebugS "setup" "SMTP-Pool"
createSmtpPool createSmtpPool c
appWidgetMemcached <- for appWdigetMemcachedConf $ \c -> do appWidgetMemcached <- for appWidgetMemcachedConf $ \c -> do
$logDebugS "setup" "Widget-Memcached" $logDebugS "setup" "Widget-Memcached"
createWidgetMemcached createWidgetMemcached c
-- Create the database connection pool -- Create the database connection pool
$logDebugS "setup" "PostgreSQL-Pool" $logDebugS "setup" "PostgreSQL-Pool"