From 821ee2e79287c813253c51bd4ddc1f64159d860c Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Tue, 22 Dec 2015 17:06:51 -0500
Subject: [PATCH] Test the identity case via openMaybe.

---
 test/SplitSpec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/SplitSpec.hs b/test/SplitSpec.hs
index b17677c82..818d0a0fa 100644
--- a/test/SplitSpec.hs
+++ b/test/SplitSpec.hs
@@ -56,7 +56,7 @@ spec = do
 
   describe "adjoinRowsBy" $ do
     prop "is identity on top of no rows" $
-      \ a -> adjoinRowsBy openString openString [] a == [ a ]
+      \ a -> adjoinRowsBy openMaybe openMaybe [] a == [ a ]
 
     prop "appends onto open rows" $
       forAll ((arbitrary `suchThat` isOpenBy openMaybe) >>= \ a -> (,) a <$> (arbitrary `suchThat` isOpenBy openMaybe)) $