X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FhsSyn%2FHsDecls.lhs;h=baf6eca76fd80199d1190f595559110c9a371c90;hp=0038ebed0a59d5d8b0e34ae03de1a9998b50d3e0;hb=302e2e29f2e1074bfba561e077a484dc4e1d15f6;hpb=c7c2a6b5ce0ea2fa010b193d059d4705a1791c40

diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs
index 0038ebe..baf6eca 100644
--- a/compiler/hsSyn/HsDecls.lhs
+++ b/compiler/hsSyn/HsDecls.lhs
@@ -232,11 +232,15 @@ instance OutputableBndr name => Outputable (HsGroup name) where
 	  ppr_ds [] = empty
 	  ppr_ds ds = blankLine $$ vcat (map ppr ds)
 
-data SpliceDecl id = SpliceDecl (Located (HsExpr id))	-- Top level splice
+data SpliceDecl id 
+  = SpliceDecl			-- Top level splice
+        (Located (HsExpr id))
+        HsExplicitFlag		-- Explicit <=> $(f x y)
+				-- Implicit <=> f x y,  i.e. a naked top level expression
     deriving (Data, Typeable)
 
 instance OutputableBndr name => Outputable (SpliceDecl name) where
-   ppr (SpliceDecl e) = ptext (sLit "$") <> parens (pprExpr (unLoc e))
+   ppr (SpliceDecl e _) = ptext (sLit "$") <> parens (pprExpr (unLoc e))
 \end{code}