diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-09-21 13:20:07 -0700 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-09-21 13:20:07 -0700 |
| commit | d516d2e1a4ca349b4a0ad0ed2e71e8ea8808c1d7 (patch) | |
| tree | 0d24e5c0cfaf52b23778a784c277d6264e7594a0 /compiler | |
| parent | 06d46b1e4507e09eb2a7a04998a92610c8dc6277 (diff) | |
| download | haskell-d516d2e1a4ca349b4a0ad0ed2e71e8ea8808c1d7.tar.gz | |
Fix build failure, I think.
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/main/HscTypes.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/HscTypes.hs b/compiler/main/HscTypes.hs index 00ceb41ed9..ddb4ca160b 100644 --- a/compiler/main/HscTypes.hs +++ b/compiler/main/HscTypes.hs @@ -2474,7 +2474,7 @@ instance Outputable ModSummary where <> text (hscSourceString (ms_hsc_src ms)) <> comma, text "ms_textual_imps =" <+> ppr (ms_textual_imps ms), text "ms_srcimps =" <+> ppr (ms_srcimps ms), - if not (null (ms_merge_imps ms)) + if not (null (snd (ms_merge_imps ms))) then text "ms_merge_imps =" <+> ppr (ms_merge_imps ms) else empty]), char '}' |