hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Workaround for GHC 7.4 bugs

Browse Source
This commit is contained in:
Nikolay Yakimov 2015-06-09 12:45:27 +03:00
parent 3790fca20b
commit e72d72eb86
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Language/Haskell/GhcMod/FileMapping.hs
View File

@ -1,7 +1,7 @@
module Language.Haskell.GhcMod.FileMapping module Language.Haskell.GhcMod.FileMapping
( loadMappedFile ( loadMappedFile
, loadMappedFiles , loadMappedFiles
, delMMappedFile , unloadMappedFile
, mapFile , mapFile
) where ) where
@ -60,3 +60,6 @@ mkMappedTarget tid taoc (Just (MemoryMapping (Just src))) = do
ct <- liftIO getCurrentTime ct <- liftIO getCurrentTime
return $ mkTarget tid taoc $ Just (sb, ct) return $ mkTarget tid taoc $ Just (sb, ct)
mkMappedTarget tid taoc _ = return $ mkTarget tid taoc Nothing mkMappedTarget tid taoc _ = return $ mkTarget tid taoc Nothing
unloadMappedFile :: IOish m => FilePath -> GhcModT m ()
unloadMappedFile = delMMappedFile

2
src/GHCMod.hs
View File

@ -441,7 +441,7 @@ legacyInteractiveLoop symdbreq world = do
"load" -> loadMappedFile arg (MemoryMapping Nothing) "load" -> loadMappedFile arg (MemoryMapping Nothing)
>> return "" >> return ""
"unload" -> delMMappedFile arg "unload" -> unloadMappedFile arg
>> return "" >> return ""
"quit" -> liftIO $ exitSuccess "quit" -> liftIO $ exitSuccess