Permalink
Browse files

pretty: missing parents around arguments to intersect

  • Loading branch information...
1 parent 5c20f02 commit afb69aa843fcd9bb4b870d6fb24a9cb031ff7c9d @tmcdonell tmcdonell committed Sep 21, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 Data/Array/Accelerate/Pretty/Print.hs
@@ -295,8 +295,8 @@ prettyPreExp pp _lvl alvl wrap (Shape idx)
prettyPreExp pp lvl alvl wrap (ShapeSize idx)
= wrap $ text "shapeSize" <+> parens (prettyPreExp pp lvl alvl parens idx)
prettyPreExp pp lvl alvl wrap (Intersect sh1 sh2)
- = wrap $ text "intersect" <+> sep [ prettyPreExp pp lvl alvl wrap sh1
- , prettyPreExp pp lvl alvl wrap sh2 ]
+ = wrap $ text "intersect" <+> sep [ prettyPreExp pp lvl alvl parens sh1
+ , prettyPreExp pp lvl alvl parens sh2 ]
-- Pretty print nested pairs as a proper tuple.
--

0 comments on commit afb69aa

Please sign in to comment.