diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2017-02-07 15:02:40 -0800 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2017-02-12 19:14:52 -0800 |
| commit | 8e9ad240a9345527fc0635b89cc39b4d73b08e03 (patch) | |
| tree | 0b59844d22acec6cc17ae2cd1a462dfc0c4071c6 /compiler/main/ErrUtils.hs | |
| parent | a4ccd330273ccfd136481ee82ae9495f5dd5f146 (diff) | |
| download | haskell-8e9ad240a9345527fc0635b89cc39b4d73b08e03.tar.gz | |
Setup more error context for Backpack operations.
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Test Plan: validate
Reviewers: bgamari, simonpj, austin
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D3101
Diffstat (limited to 'compiler/main/ErrUtils.hs')
| -rw-r--r-- | compiler/main/ErrUtils.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/compiler/main/ErrUtils.hs b/compiler/main/ErrUtils.hs index 94ea96e59a..d73628a87e 100644 --- a/compiler/main/ErrUtils.hs +++ b/compiler/main/ErrUtils.hs @@ -364,7 +364,6 @@ formatErrDoc dflags (ErrDoc important context supplementary) msgs = filter (not . null) $ map (filter (not . Outputable.isEmpty dflags)) [important, context, supplementary] starred = (bullet<+>) . vcat - bullet = text $ if DynFlags.useUnicode dflags then "•" else "*" pprErrMsgBagWithLoc :: Bag ErrMsg -> [SDoc] pprErrMsgBagWithLoc bag = [ pprLocErrMsg item | item <- sortMsgBag Nothing bag ] |