X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FIfaceSyn.lhs;h=bcff5f0781ab45cf57f537cf55a8b07c0eda08cb;hp=7efa0299bf60b2af073f011422a848c07c6ff49b;hb=8100cd4395e46ae747be4298c181a4730d6206bc;hpb=311b1cdfc9b1c311cc53482c461c18cba8885b2a diff --git a/compiler/iface/IfaceSyn.lhs b/compiler/iface/IfaceSyn.lhs index 7efa029..bcff5f0 100644 --- a/compiler/iface/IfaceSyn.lhs +++ b/compiler/iface/IfaceSyn.lhs @@ -41,6 +41,7 @@ import SrcLoc import BasicTypes import Outputable import FastString +import Module import Data.List import Data.Maybe @@ -483,6 +484,7 @@ instance Outputable IfaceNote where ppr IfaceInlineMe = ptext SLIT("__inline_me") ppr (IfaceCoreNote s) = ptext SLIT("__core_note") <+> pprHsString (mkFastString s) + instance Outputable IfaceConAlt where ppr IfaceDefault = text "DEFAULT" ppr (IfaceLitAlt l) = ppr l