diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-09-11 17:13:30 -0700 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-09-21 11:11:48 -0700 |
| commit | 3f13c20e0c29d3db974c2a0d7d5ec15abd5a434b (patch) | |
| tree | 0beb42ce43328983d54718bf835e82ea48c8d2db /ghc/Main.hs | |
| parent | c234acbe76da85556befad3eaa0c7c6b31e9e1c3 (diff) | |
| download | haskell-3f13c20e0c29d3db974c2a0d7d5ec15abd5a434b.tar.gz | |
Revert "Revert "Revert "Support for multiple signature files in scope."""
This reverts commit 214596de224afa576a9c295bcf53c6941d6892e0.
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 |