From e72d72eb867a436b94d767fbb46814b9aca0e162 Mon Sep 17 00:00:00 2001
From: Nikolay Yakimov <root@livid.pp.ru>
Date: Tue, 9 Jun 2015 12:45:27 +0300
Subject: [PATCH] Workaround for GHC 7.4 bugs

---
 Language/Haskell/GhcMod/FileMapping.hs | 5 ++++-
 src/GHCMod.hs                          | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/Language/Haskell/GhcMod/FileMapping.hs b/Language/Haskell/GhcMod/FileMapping.hs
index f4602e6..fffe350 100644
--- 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
diff --git a/src/GHCMod.hs b/src/GHCMod.hs
index c0f2167..3c512bf 100644
--- 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