X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FHsPat.lhs;h=9e954a67fe4f63a981c60cc792c91b4ddcc8124f;hb=9f55c592f7283e5d16dd406c767af352adf30bfc;hp=032070698e838a915554d78feaf68b7fc98875bd;hpb=ce0ff544eec55a39aa279f2641032e95320089b2;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsPat.lhs b/compiler/hsSyn/HsPat.lhs
index 0320706..9e954a6 100644
--- a/compiler/hsSyn/HsPat.lhs
+++ b/compiler/hsSyn/HsPat.lhs
@@ -210,6 +210,15 @@ data HsQuasiQuote id = HsQuasiQuote
 		       id
 		       SrcSpan
 		       FastString
+
+instance OutputableBndr id => Outputable (HsQuasiQuote id) where
+    ppr = ppr_qq
+
+ppr_qq :: OutputableBndr id => HsQuasiQuote id -> SDoc
+ppr_qq (HsQuasiQuote name quoter _ quote) =
+    char '$' <> brackets (ppr name) <>
+    ptext (sLit "[:") <> ppr quoter <> ptext (sLit "|") <>
+    ppr quote <> ptext (sLit "|]")
 \end{code}