From 996d04574f8dbff923efa1930ff889554ebb8460 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Sat, 27 Apr 2019 10:28:25 +0200
Subject: [PATCH] Fix build

---
 src/Application.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Application.hs b/src/Application.hs
index f5cbbde08..d3e6f83df 100644
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -169,11 +169,11 @@ makeFoundation appSettings'@AppSettings{..} = do
 
       smtpPool <- for appSmtpConf $ \c -> do
         $logDebugS "setup" "SMTP-Pool"
-        createSmtpPool
+        createSmtpPool c
 
-      appWidgetMemcached <- for appWdigetMemcachedConf $ \c -> do
+      appWidgetMemcached <- for appWidgetMemcachedConf $ \c -> do
         $logDebugS "setup" "Widget-Memcached"
-        createWidgetMemcached
+        createWidgetMemcached c
 
       -- Create the database connection pool
       $logDebugS "setup" "PostgreSQL-Pool"