From cef2be6495287a2de70f91f8ee45523ff4dda468 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Tue, 8 Mar 2016 22:10:35 -0500
Subject: [PATCH] Correct the predicate.

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

diff --git a/test/AlignmentSpec.hs b/test/AlignmentSpec.hs
index 9c1fdfd05..5d357c9e8 100644
--- a/test/AlignmentSpec.hs
+++ b/test/AlignmentSpec.hs
@@ -93,7 +93,7 @@ spec = parallel $ do
       \ a -> adjoinRowsBy (pure Maybe.isJust) (makeRow EmptyLine (pure Nothing)) [ makeRow (pure (Just a)) (pure Nothing), makeRow (pure Nothing) (pure Nothing) ] `shouldBe` [ makeRow (pure (Just a)) (pure Nothing), makeRow EmptyLine (pure Nothing), makeRow (pure Nothing) (pure Nothing) :: Row (Maybe Bool) ]
 
     it "aligns closed lines" $
-      foldr (adjoinRowsBy (pure (== '\n'))) [] (Prelude.zipWith (makeRow) (pure <$> "[ bar ]\nquux") (pure <$> "[\nbar\n]\nquux")) `shouldBe`
+      foldr (adjoinRowsBy (pure (/= '\n'))) [] (Prelude.zipWith (makeRow) (pure <$> "[ bar ]\nquux") (pure <$> "[\nbar\n]\nquux")) `shouldBe`
         [ makeRow (makeLine "[ bar ]\n") (makeLine "[\n")
         , makeRow EmptyLine (makeLine "bar\n")
         , makeRow EmptyLine (makeLine "]\n")