From 34d23b6e47ed3d6ddf05c50bcc6be0949330bd8a Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Wed, 8 Jun 2016 14:19:46 +0200
Subject: [PATCH] Update DevelMain

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

diff --git a/DevelMain.hs b/DevelMain.hs
index ee71409..20fd934 100644
--- a/DevelMain.hs
+++ b/DevelMain.hs
@@ -16,13 +16,11 @@ import Data.IORef
 import Foreign.Store
 import Network.Wai.Handler.Warp
 import Yesod
-import Yesod.Static
 
 -- | Start the web server.
 main :: IO (Store (IORef Application))
 main =
-  do s <- static "static"
-     c <- newChan
+  do c <- newChan
      (settings,app) <- getApplicationDev
      ref <- newIORef app
      tid <- forkIO
@@ -46,7 +44,6 @@ update =
          do ref <- readStore store
             c <- readStore (Store 2)
             writeChan c ()
-            s <- static "static"
-            (_settings,app) <- getApplicationDev
+            (_,app) <- getApplicationDev
             writeIORef ref app
             return store