diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2016-05-30 14:21:36 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-06-02 11:48:20 +0200 |
| commit | f2b3be031075156cf128aba127bdddb84f8b2eb8 (patch) | |
| tree | aa9cd70645aece6312e0c921e1f6bcf3590dd21e /compiler/deSugar | |
| parent | cb2c042947ccc4d13bd11d3e4bce47059c3471de (diff) | |
| download | haskell-f2b3be031075156cf128aba127bdddb84f8b2eb8.tar.gz | |
Improve failed knot-tying error message.
Test Plan: validate
Reviewers: simonpj, austin, bgamari
Reviewed By: bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2207
Diffstat (limited to 'compiler/deSugar')
| -rw-r--r-- | compiler/deSugar/DsMonad.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/deSugar/DsMonad.hs b/compiler/deSugar/DsMonad.hs index de141073a2..69aa0f9648 100644 --- a/compiler/deSugar/DsMonad.hs +++ b/compiler/deSugar/DsMonad.hs @@ -261,7 +261,8 @@ initTcDsForSolver thing_inside mkDsEnvs :: DynFlags -> Module -> GlobalRdrEnv -> TypeEnv -> FamInstEnv -> IORef Messages -> IORef Int -> (DsGblEnv, DsLclEnv) mkDsEnvs dflags mod rdr_env type_env fam_inst_env msg_var pmvar - = let if_genv = IfGblEnv { if_rec_types = Just (mod, return type_env) } + = let if_genv = IfGblEnv { if_doc = text "mkDsEnvs", + if_rec_types = Just (mod, return type_env) } if_lenv = mkIfLclEnv mod (text "GHC error in desugarer lookup in" <+> ppr mod) real_span = realSrcLocSpan (mkRealSrcLoc (moduleNameFS (moduleName mod)) 1 1) gbl_env = DsGblEnv { ds_mod = mod |