[commit: ghc] master: Fix build failure, I think. (d516d2e)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/d516d2e1a4ca349b4a0ad0ed2e71e8ea8808c1d7/ghc

>---------------------------------------------------------------

commit d516d2e1a4ca349b4a0ad0ed2e71e8ea8808c1d7
Author: Edward Z. Yang <ezyang at cs.stanford.edu>
Date:   Mon Sep 21 13:20:07 2015 -0700

    Fix build failure, I think.
    
    Signed-off-by: Edward Z. Yang <ezyang at cs.stanford.edu>


>---------------------------------------------------------------

d516d2e1a4ca349b4a0ad0ed2e71e8ea8808c1d7
 compiler/main/HscTypes.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/main/HscTypes.hs b/compiler/main/HscTypes.hs
index 00ceb41..ddb4ca1 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 '}'