From 45bbb0fc93db341ecac1406234fe0e880d63ed12 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Sun, 17 Jul 2011 21:26:16 +0300 Subject: [PATCH] Disabled appMessage server; not as pretty, but actually works --- Scaffold/Devel.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Scaffold/Devel.hs b/Scaffold/Devel.hs index cd24854b..ebd82a04 100644 --- a/Scaffold/Devel.hs +++ b/Scaffold/Devel.hs @@ -37,7 +37,7 @@ import Data.Maybe (mapMaybe) appMessage :: L.ByteString -> IO () 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 swapApp :: I.IORef ThreadId -> IO ThreadId -> IO ()