Refactoring World, etc. and fix #387

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

src/GHCModi.hs

@@ -134,7 +134,7 @@ loop symdbreq ref world = do
     cmdArg <- liftIO $ getCommand ref
     -- after blocking, we need to see if the world has changed.
     crdl <- cradle
-    changed <- liftIO $ isWorldChanged world crdl
+    changed <- liftIO $ didWorldChange world crdl
     when changed $ do
         liftIO $ ungetCommand ref cmdArg
         E.throw Restart