diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2017-02-12 22:36:19 -0800 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2017-02-17 16:47:28 -0800 |
| commit | 89168849a781626fc794ae97375da979ac83bf96 (patch) | |
| tree | 77853738762272af87275b56917fa465ba26331d /compiler/iface/IfaceSyn.hs | |
| parent | fd2d5b6de7493c2ff2ac76401ef296f575c52483 (diff) | |
| download | haskell-89168849a781626fc794ae97375da979ac83bf96.tar.gz | |
Say 'data' explicitly in IfAbstractTyCon output.
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Diffstat (limited to 'compiler/iface/IfaceSyn.hs')
| -rw-r--r-- | compiler/iface/IfaceSyn.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/iface/IfaceSyn.hs b/compiler/iface/IfaceSyn.hs index 646987873f..7150e228ba 100644 --- a/compiler/iface/IfaceSyn.hs +++ b/compiler/iface/IfaceSyn.hs @@ -726,8 +726,8 @@ pprIfaceDecl ss (IfaceData { ifName = tycon, ifCType = ctype, pp_nd = case condecls of IfAbstractTyCon how -> case how of - DistinctNominalAbstract -> text "abstract" - SkolemAbstract -> text "skolem" + DistinctNominalAbstract -> text "{- abstract -} data" + SkolemAbstract -> text "{- skolem -} data" IfDataTyCon{} -> text "data" IfNewTyCon{} -> text "newtype" |