diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2016-05-12 21:58:58 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2016-06-17 13:27:39 -0700 |
| commit | 4b3d52b745d5789fb9543ba11b971595ca16020d (patch) | |
| tree | 27441c9f21de9a5a5a51261424dce17b3759488a /compiler/iface | |
| parent | 498ed2664219f7e8f1077f46ad2061aba2f57de4 (diff) | |
| download | haskell-wip/T11970.tar.gz | |
Basic rip outwip/T11970
working
Add test files
tabs
test
Formatting
Formatting and comments
comment
Add test
Record usages
Diffstat (limited to 'compiler/iface')
| -rw-r--r-- | compiler/iface/LoadIface.hs | 2 | ||||
| -rw-r--r-- | compiler/iface/MkIface.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/iface/LoadIface.hs b/compiler/iface/LoadIface.hs index ba58c9e456..c971d7bf96 100644 --- a/compiler/iface/LoadIface.hs +++ b/compiler/iface/LoadIface.hs @@ -908,7 +908,7 @@ When printing export lists, we print like this: -} pprExport :: IfaceExport -> SDoc -pprExport (Avail _ n) = ppr n +pprExport (Avail n) = ppr n pprExport (AvailTC _ [] []) = Outputable.empty pprExport (AvailTC n ns0 fs) = case ns0 of diff --git a/compiler/iface/MkIface.hs b/compiler/iface/MkIface.hs index 537d9601b7..694d98629e 100644 --- a/compiler/iface/MkIface.hs +++ b/compiler/iface/MkIface.hs @@ -875,7 +875,7 @@ mkIfaceExports exports = sortBy stableAvailCmp (map sort_subs exports) where sort_subs :: AvailInfo -> AvailInfo - sort_subs (Avail b n) = Avail b n + sort_subs (Avail n) = Avail n sort_subs (AvailTC n [] fs) = AvailTC n [] (sort_flds fs) sort_subs (AvailTC n (m:ms) fs) | n==m = AvailTC n (m:sortBy stableNameCmp ms) (sort_flds fs) |