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 /compiler/deSugar/DsMonad.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 'compiler/deSugar/DsMonad.hs')
| -rw-r--r-- | compiler/deSugar/DsMonad.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/DsMonad.hs b/compiler/deSugar/DsMonad.hs index ad6a6b1d7b..61beca2f5c 100644 --- a/compiler/deSugar/DsMonad.hs +++ b/compiler/deSugar/DsMonad.hs @@ -184,7 +184,7 @@ initDs hsc_env mod rdr_env type_env fam_inst_env thing_inside else do { ; result <- liftIO $ findImportedModule hsc_env modname Nothing ; case result of - FoundModule h -> loadModule err (fr_mod h) + Found _ mod -> loadModule err mod _ -> pprPgmError "Unable to use Data Parallel Haskell (DPH):" err } } |