PmExpr: Fix CPP unacceptable too clang's CPP
authorBen Gamari <ben@smart-cactus.org>
Fri, 4 Dec 2015 10:05:06 +0000 (05:05 -0500)
committerBen Gamari <ben@smart-cactus.org>
Fri, 4 Dec 2015 10:05:06 +0000 (05:05 -0500)
compiler/deSugar/PmExpr.hs

index f426bb4..78a51e6 100644 (file)
@@ -357,7 +357,7 @@ pprPmExprCon con args
     list = list_elements args
 
     list_elements [x,y]
-      | PmExprCon c es <- y,  nilDataCon == c = ASSERT (null es) [x,y]
+      | PmExprCon c es <- y,  nilDataCon == c = ASSERT(null es) [x,y]
       | PmExprCon c es <- y, consDataCon == c = x : list_elements es
       | otherwise = [x,y]
     list_elements list  = pprPanic "list_elements:" (ppr list)