wrath/shaniqua-plugins
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Support GHC 8

Browse Source
This commit is contained in:
Harendra Kumar
2017-02-20 02:05:05 +05:30
parent 98b1ffa6c6
commit dee0f76486
3 changed files with 25 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/System/Plugins/Load.hs
View File

@ -72,11 +72,16 @@ import System.Plugins.LoadTypes
-- import Language.Hi.Parser
import BinIface
import HscTypes
#if MIN_VERSION_ghc(7,10,0)
import Module (moduleName, moduleNameString, packageKeyString)
import Module (moduleName, moduleNameString)
#if MIN_VERSION_ghc(8,0,0)
import Module (unitIdString)
#elif MIN_VERSION_ghc(7,10,0)
import Module (packageKeyString)
#else
import Module (moduleName, moduleNameString, packageIdString)
import Module (packageIdString)
#endif
import HscMain (newHscEnv)
import TcRnMonad (initTcRnIf)
@ -705,7 +710,9 @@ loadDepends obj incpaths = do
-- and find some packages to load, as well.
let ps = dep_pkgs ds
#if MIN_VERSION_ghc(7,10,0)
#if MIN_VERSION_ghc(8,0,0)
ps' <- filterM loaded . map unitIdString . nub $ map fst ps
#elif MIN_VERSION_ghc(7,10,0)
ps' <- filterM loaded . map packageKeyString . nub $ map fst ps
#elif MIN_VERSION_ghc(7,2,0)
ps' <- filterM loaded . map packageIdString . nub $ map fst ps