Fix build failure, I think.
authorEdward Z. Yang <ezyang@cs.stanford.edu>
Mon, 21 Sep 2015 20:20:07 +0000 (13:20 -0700)
committerEdward Z. Yang <ezyang@cs.stanford.edu>
Mon, 21 Sep 2015 20:20:07 +0000 (13:20 -0700)
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
compiler/main/HscTypes.hs

index 00ceb41..ddb4ca1 100644 (file)
@@ -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 '}'