From b3dcf312284f4578f87eaf86ae80c663709db390 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Sun, 1 Jun 2014 12:55:57 +0200
Subject: [PATCH] Fix DevelMain

---
 DevelMain.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/DevelMain.hs b/DevelMain.hs
index ede813a..d49b1cf 100644
--- a/DevelMain.hs
+++ b/DevelMain.hs
@@ -23,7 +23,7 @@ main :: IO (Store (IORef Application))
 main =
   do s <- static "static"
      c <- newChan
-     (port,app) <- getApplicationDev
+     (port,app) <- getApplicationDev True
      ref <- newIORef app
      tid <- forkIO
               (runSettings
@@ -47,6 +47,6 @@ update =
             c <- readStore (Store 2)
             writeChan c ()
             s <- static "static"
-            (port,app) <- getApplicationDev
+            (port,app) <- getApplicationDev True
             writeIORef ref app
             return store