X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FhsSyn%2FHsExpr.lhs;h=db54ab8b37a3793a38fc2fb5e948353124abaecd;hp=2ddb7c8c128e6f61ea4fe5b44a6ed64a600b89c7;hb=340fb6fe7e6d31f73e8610d7f6fa3984555470fb;hpb=1c83695b5b9ae3175c18908c1d58aeadb1f225ae

diff --git a/compiler/hsSyn/HsExpr.lhs b/compiler/hsSyn/HsExpr.lhs
index 2ddb7c8..db54ab8 100644
--- a/compiler/hsSyn/HsExpr.lhs
+++ b/compiler/hsSyn/HsExpr.lhs
@@ -529,6 +529,8 @@ pprParendExpr expr
         -- I think that is usually (always?) right
     in
     case unLoc expr of
+      ArithSeq{}           -> pp_as_was
+      PArrSeq{}            -> pp_as_was
       HsLit _              -> pp_as_was
       HsOverLit _          -> pp_as_was
       HsVar _              -> pp_as_was