Refactoring World, etc. and fix #387

2014-11-01 22:02:47 +01:00
parent 14ee81e300
commit 37af8e368d
13 changed files with 271 additions and 219 deletions
--- a/src/GHCMod.hs
+++ b/src/GHCMod.hs
@@ -442,7 +442,7 @@ legacyInteractiveLoop symdbreq ref world = do

    -- after blocking, we need to see if the world has changed.

-    changed <- liftIO . isWorldChanged world =<< cradle
+    changed <- liftIO . didWorldChange world =<< cradle
    when changed $ do
        liftIO $ ungetCommand ref cmdArg
        throw Restart