Update DevelMain

chrisdone-archive · Nov 29, 2014 · 460b042 · 460b042
1 parent d8b59e7
commit 460b042
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/DevelMain.hs b/src/DevelMain.hs
@@ -12,10 +12,9 @@ import TryHaskell
 -- | Main entry point.
 main :: IO ()
 main =
-  do ((stats,statsT),(cache,cacheT)) <- setupServer
+  do ((stats,statsT),cache) <- setupServer
      tid <- forkIO (finally (startServer cache stats)
-                            (do killThread statsT
-                                killThread cacheT))
+                            (killThread statsT))
      putStrLn ("Writing store with " ++ show tid ++ " ...")
      writeStore (Store 0) tid