Workaround for GHC 7.4 bugs

2015-06-09 12:45:27 +03:00 · 2015-06-09 12:45:27 +03:00 · e72d72eb86
commit e72d72eb86
parent 3790fca20b
2 changed files with 5 additions and 2 deletions
--- a/Language/Haskell/GhcMod/FileMapping.hs
+++ b/Language/Haskell/GhcMod/FileMapping.hs
@ -1,7 +1,7 @@
 module Language.Haskell.GhcMod.FileMapping
    ( loadMappedFile
    , loadMappedFiles
-    , delMMappedFile
+    , unloadMappedFile
    , mapFile
    ) where

@ -60,3 +60,6 @@ mkMappedTarget tid taoc (Just (MemoryMapping (Just src))) = do
  ct <- liftIO getCurrentTime
  return $ mkTarget tid taoc $ Just (sb, ct)
 mkMappedTarget tid taoc _ = return $ mkTarget tid taoc Nothing
+
+unloadMappedFile :: IOish m => FilePath -> GhcModT m ()
+unloadMappedFile = delMMappedFile
--- a/src/GHCMod.hs
+++ b/src/GHCMod.hs
@ -441,7 +441,7 @@ legacyInteractiveLoop symdbreq world = do
        "load"   -> loadMappedFile arg (MemoryMapping Nothing)
                 >> return ""

-        "unload" -> delMMappedFile arg
+        "unload" -> unloadMappedFile arg
                 >> return ""

        "quit"   -> liftIO $ exitSuccess