Fix DevelMain
This commit is contained in:
parent
d815d5cfa7
commit
b3dcf31228
1 changed files with 2 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue