From 8bb258a8e6682b14e513b8ae0f333fbeef903b19 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 18 Dec 2015 13:17:03 -0500 Subject: [PATCH] Add a predicate for closed rows. --- test/SplitSpec.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/test/SplitSpec.hs b/test/SplitSpec.hs index b9e1b816d..c4c4d8181 100644 --- a/test/SplitSpec.hs +++ b/test/SplitSpec.hs @@ -178,3 +178,4 @@ spec = do 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 False (const True) $ openLine [ a ]) && (maybe False (const True) $ openLine [ b ]) + isClosed (Row a b) = (maybe True (const False) $ openLine [ a ]) && (maybe True (const False) $ openLine [ b ])