From 5a57316c7faf6628a0d999a3a8dc68f09a158487 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 29 Jul 2009 13:43:48 +0000 Subject: [PATCH] fix warnings --- ghc/Main.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/ghc/Main.hs b/ghc/Main.hs index 4c18d26..5a2ebc9 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -47,7 +47,6 @@ import Panic -- import MonadUtils ( liftIO ) -- Imports for --abi-hash -import HscTypes ( ModIface(mi_mod_hash) ) import LoadIface ( loadUserInterface ) import Module ( mkModuleName ) import Finder ( findImportedModule, cannotFindInterface ) @@ -407,7 +406,7 @@ data PostLoadMode | DoEval [String] -- ghc -e foo -e bar => DoEval ["bar", "foo"] | DoAbiHash -- ghc --abi-hash -doMkDependHSMode, doMakeMode, doInteractiveMode :: Mode +doMkDependHSMode, doMakeMode, doInteractiveMode, doAbiHashMode :: Mode doMkDependHSMode = mkPostLoadMode DoMkDependHS doMakeMode = mkPostLoadMode DoMake doInteractiveMode = mkPostLoadMode DoInteractive @@ -748,7 +747,7 @@ abiHash strs = do mods <- mapM find_it (map fst strs) - let get_iface mod = loadUserInterface False (text "abiHash") mod + let get_iface modl = loadUserInterface False (text "abiHash") modl ifaces <- initIfaceCheck hsc_env $ mapM get_iface mods bh <- openBinMem (3*1024) -- just less than a block -- 1.7.10.4