haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Disabled appMessage server; not as pretty, but actually works

Browse Source
This commit is contained in:
Michael Snoyman 2011-07-17 21:26:16 +03:00
parent 2e90d0a6b7
commit 45bbb0fc93
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Scaffold/Devel.hs
View File

@ -37,7 +37,7 @@ import Data.Maybe (mapMaybe)
appMessage :: L.ByteString -> IO () appMessage :: L.ByteString -> IO ()
appMessage l = forever $ do appMessage l = forever $ do
run 3000 . const . return $ responseLBS status500 [("Content-Type", "text/plain")] l -- run 3000 . const . return $ responseLBS status500 [("Content-Type", "text/plain")] l
threadDelay 10000 threadDelay 10000
swapApp :: I.IORef ThreadId -> IO ThreadId -> IO () swapApp :: I.IORef ThreadId -> IO ThreadId -> IO ()