From cbc1240946583547bfad8a5041ed257a78f7df39 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 21 Dec 2015 13:03:08 -0500 Subject: [PATCH] Avoid needless $s. --- test/SplitSpec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/SplitSpec.hs b/test/SplitSpec.hs index 9df882307..f462dec0a 100644 --- a/test/SplitSpec.hs +++ b/test/SplitSpec.hs @@ -168,6 +168,6 @@ spec = do offsetInfo by (Info (Range start end) categories) = Info (Range (start + by) (end + by)) categories offsetAnnotated by1 by2 (Annotated (left, right) syntax) = Annotated (offsetInfo by1 left, offsetInfo by2 right) syntax span = Span (Just "category-leaf") - isOpen (Row a b) = (Maybe.isJust $ openLineBy openElement [ a ]) && (Maybe.isJust $ openLineBy openElement [ b ]) - isClosed (Row a@(Line _ _) b@(Line _ _)) = (Maybe.isNothing $ openLineBy openElement [ a ]) && (Maybe.isNothing $ openLineBy openElement [ b ]) + isOpen (Row a b) = Maybe.isJust (openLineBy openElement [ a ]) && Maybe.isJust (openLineBy openElement [ b ]) + isClosed (Row a@(Line _ _) b@(Line _ _)) = Maybe.isNothing (openLineBy openElement [ a ]) && Maybe.isNothing (openLineBy openElement [ b ]) isClosed (Row _ _) = False