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

Fix some warnings.

Browse Source
This commit is contained in:
cgibbard 2007-12-16 05:52:29 +00:00
parent b80977561c
commit 5e250e94d2
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -72,8 +72,6 @@ import HscTypes
import Module (moduleName, moduleNameString) import Module (moduleName, moduleNameString)
import PackageConfig (packageIdString) import PackageConfig (packageIdString)
import HscMain (newHscEnv) import HscMain (newHscEnv)
import PrelInfo ( wiredInThings, basicKnownKeyNames )
import Name ( Name, NamedThing(..) )
import TcRnMonad (initTcRnIf) import TcRnMonad (initTcRnIf)
import Data.Dynamic ( fromDynamic, Dynamic ) import Data.Dynamic ( fromDynamic, Dynamic )
@ -101,12 +99,6 @@ readBinIface' hi_path = do
e <- newHscEnv undefined e <- newHscEnv undefined
initTcRnIf 'r' e undefined undefined (readBinIface hi_path) 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 -- TODO need a loadPackage p package.conf :: IO () primitive
-- --
@ -460,10 +452,10 @@ loadPackageFunction :: String -- ^ Package name, including version number.
-> String -- ^ Module name -> String -- ^ Module name
-> String -- ^ Symbol to lookup in the module -> String -- ^ Symbol to lookup in the module
-> IO (Maybe a) -> IO (Maybe a)
loadPackageFunction pkgName moduleName functionName = loadPackageFunction pkgName modName functionName =
do loadPackage pkgName do loadPackage pkgName
resolveObjs (unloadPackage pkgName) resolveObjs (unloadPackage pkgName)
loadFunction__ (Just pkgName) moduleName functionName loadFunction__ (Just pkgName) modName functionName
-- --
-- | Load a GHC-compiled Haskell vanilla object file. -- | Load a GHC-compiled Haskell vanilla object file.