From 227951d38654382340fca0d3ee895f50ff6908ff Mon Sep 17 00:00:00 2001
From: yuko <ike534xx@yahoo.co.jp>
Date: Tue, 24 Mar 2015 16:43:27 +0900
Subject: [PATCH] Be able to answer in the HEAD request

---
 Application.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Application.hs b/Application.hs
index f3e177a..de00289 100644
--- a/Application.hs
+++ b/Application.hs
@@ -53,7 +53,7 @@ makeApplication conf = do
         }
 
     -- Create the WAI application and apply middlewares
-    app <- toWaiAppPlain foundation
+    app <- toWaiApp foundation
     let logFunc = messageLoggerSource foundation (appLogger foundation)
     return (logWare app, logFunc)