diff options
Diffstat (limited to 'ghc/Main.hs')
| -rw-r--r-- | ghc/Main.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ghc/Main.hs b/ghc/Main.hs index a1a4eccb12..e2c7479008 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -847,12 +847,11 @@ abiHash strs = do let modname = mkModuleName str r <- findImportedModule hsc_env modname Nothing case r of - FoundModule h -> return [fr_mod h] - FoundSigs hs _ -> return (map fr_mod hs) + Found _ m -> return m _error -> throwGhcException $ CmdLineError $ showSDoc dflags $ cannotFindInterface dflags modname r - mods <- fmap concat (mapM find_it strs) + mods <- mapM find_it strs let get_iface modl = loadUserInterface False (text "abiHash") modl ifaces <- initIfaceCheck hsc_env $ mapM get_iface mods |