diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-06-11 15:24:27 -0700 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-06-11 15:37:04 -0700 |
| commit | bac927b9770ff769128b66d13a3e72bf5a9bc514 (patch) | |
| tree | dab91026af349d00b0ff352304091d17359c8d70 /ghc/Main.hs | |
| parent | 28e04de37151f05c35377ec74ac214d0cfa2f521 (diff) | |
| download | haskell-bac927b9770ff769128b66d13a3e72bf5a9bc514.tar.gz | |
Revert "Support for multiple signature files in scope."
This reverts commit a7524eaed33324e2155c47d4a705bef1d70a2b5b.
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 201ee5d8d2..fa266a24f8 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -834,12 +834,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 |