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