Update src/IHaskell/Eval/Completion.hs

This commit is contained in:
Vaibhav Sagar 2017-09-01 00:48:28 +07:00
parent 932886e218
commit 4446931f46

View File

@ -29,7 +29,9 @@ import Data.Maybe (fromJust)
import System.Environment (getEnv)
import GHC hiding (Qualified)
#if MIN_VERSION_ghc(7,10,0)
#if MIN_VERSION_ghc(8,2,0)
import GHC.PackageDb
#elif MIN_VERSION_ghc(7,10,0)
import GHC.PackageDb (ExposedModule(exposedName))
#endif
import DynFlags
@ -61,6 +63,9 @@ data CompletionType = Empty
| KernelOption String
| Extension String
deriving (Show, Eq)
#if MIN_VERSION_ghc(8,2,0)
exposedName = fst
#endif
#if MIN_VERSION_ghc(7,10,0)
extName (FlagSpec { flagSpecName = name }) = name
#else