yogsototh/stackage-server
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix DevelMain

Browse source
This commit is contained in:
Chris Done 2014-06-01 12:55:57 +02:00
parent d815d5cfa7
commit b3dcf31228
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
DevelMain.hs
View file

@ -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