-- import MonadUtils ( liftIO )
-- Imports for --abi-hash
-import HscTypes ( ModIface(mi_mod_hash) )
import LoadIface ( loadUserInterface )
import Module ( mkModuleName )
import Finder ( findImportedModule, cannotFindInterface )
case postLoadMode of
ShowInterface f -> liftIO $ doShowIface dflags3 f
DoMake -> doMake srcs
- DoMkDependHS -> doMkDependHS (map fst srcs)
+ DoMkDependHS -> do doMkDependHS (map fst srcs)
+ GHC.printWarnings
StopBefore p -> oneShot hsc_env p srcs >> GHC.printWarnings
DoInteractive -> interactiveUI srcs Nothing
DoEval exprs -> interactiveUI srcs $ Just $ reverse exprs
| 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
Supported
, Flag "-abi-hash" (PassFlag (setMode doAbiHashMode))
Supported
- , Flag "e" (HasArg (\s -> setMode (doEvalMode s) "-e"))
+ , Flag "e" (SepArg (\s -> setMode (doEvalMode s) "-e"))
Supported
-- -fno-code says to stop after Hsc but don't generate any code.
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