diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 18:52:05 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 18:52:05 +0100 |
| commit | ab50c9c527d19f4df7ee6742b6d79c855d57c9b8 (patch) | |
| tree | ac78c3fda6f3a8ec8235345f7b02518e0d809ba0 /compiler/rename | |
| parent | 543ec0852722318665d2f5228e29d44a5fc973f5 (diff) | |
| download | haskell-ab50c9c527d19f4df7ee6742b6d79c855d57c9b8.tar.gz | |
Pass DynFlags down to showSDoc
Diffstat (limited to 'compiler/rename')
| -rw-r--r-- | compiler/rename/RnEnv.lhs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/compiler/rename/RnEnv.lhs b/compiler/rename/RnEnv.lhs index 8b8beb9376..65b34ac709 100644 --- a/compiler/rename/RnEnv.lhs +++ b/compiler/rename/RnEnv.lhs @@ -1387,14 +1387,15 @@ unknownNameSuggestErr :: WhereLooking -> RdrName -> RnM SDoc unknownNameSuggestErr where_look tried_rdr_name = do { local_env <- getLocalRdrEnv ; global_env <- getGlobalRdrEnv + ; dflags <- getDynFlags ; let all_possibilities :: [(String, (RdrName, HowInScope))] all_possibilities - = [ (showSDoc (ppr r), (r, Left loc)) + = [ (showPpr dflags r, (r, Left loc)) | (r,loc) <- local_possibilities local_env ] - ++ [ (showSDoc (ppr r), rp) | (r,rp) <- global_possibilities global_env ] + ++ [ (showPpr dflags r, rp) | (r,rp) <- global_possibilities global_env ] - suggest = fuzzyLookup (showSDoc (ppr tried_rdr_name)) all_possibilities + suggest = fuzzyLookup (showPpr dflags tried_rdr_name) all_possibilities perhaps = ptext (sLit "Perhaps you meant") extra_err = case suggest of [] -> empty |