Fix some warnings.
This commit is contained in:
parent
b80977561c
commit
5e250e94d2
@ -72,8 +72,6 @@ import HscTypes
|
||||
import Module (moduleName, moduleNameString)
|
||||
import PackageConfig (packageIdString)
|
||||
import HscMain (newHscEnv)
|
||||
import PrelInfo ( wiredInThings, basicKnownKeyNames )
|
||||
import Name ( Name, NamedThing(..) )
|
||||
import TcRnMonad (initTcRnIf)
|
||||
|
||||
import Data.Dynamic ( fromDynamic, Dynamic )
|
||||
@ -101,12 +99,6 @@ readBinIface' hi_path = do
|
||||
e <- newHscEnv undefined
|
||||
initTcRnIf 'r' e undefined undefined (readBinIface hi_path)
|
||||
|
||||
knownKeyNames :: [Name] -- Put here to avoid loops involving DsMeta,
|
||||
-- where templateHaskellNames are defined
|
||||
knownKeyNames = map getName wiredInThings
|
||||
++ basicKnownKeyNames
|
||||
|
||||
|
||||
-- TODO need a loadPackage p package.conf :: IO () primitive
|
||||
|
||||
--
|
||||
@ -460,10 +452,10 @@ loadPackageFunction :: String -- ^ Package name, including version number.
|
||||
-> String -- ^ Module name
|
||||
-> String -- ^ Symbol to lookup in the module
|
||||
-> IO (Maybe a)
|
||||
loadPackageFunction pkgName moduleName functionName =
|
||||
loadPackageFunction pkgName modName functionName =
|
||||
do loadPackage pkgName
|
||||
resolveObjs (unloadPackage pkgName)
|
||||
loadFunction__ (Just pkgName) moduleName functionName
|
||||
loadFunction__ (Just pkgName) modName functionName
|
||||
|
||||
--
|
||||
-- | Load a GHC-compiled Haskell vanilla object file.
|
||||
|
Loading…
x
Reference in New Issue
Block a user