From 8f05beb023b2ea46a7afd436c1dfdd311cc0b904 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 16 May 2016 10:41:10 -0400 Subject: [PATCH] Spacing for alignment. --- test/AlignmentSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/AlignmentSpec.hs b/test/AlignmentSpec.hs index cdd9a8396..65a273933 100644 --- a/test/AlignmentSpec.hs +++ b/test/AlignmentSpec.hs @@ -93,7 +93,7 @@ spec = parallel $ do align sources (both (info 0 1) (info 0 3) `branch` [ pure (info 0 1) `leaf` "a", Pure (Insert (info 2 3 :< Leaf "b")) ]) `shouldBe` PrettyDiff sources [ Join (These (info 0 1 `branch` [ info 0 1 `leaf` "a" ]) (info 0 2 `branch` [ info 0 1 `leaf` "a" ])) - , Join (That (info 2 3 `branch` [ Pure (SplitInsert (info 2 3 :< Leaf "b")) ])) + , Join (That (info 2 3 `branch` [ Pure (SplitInsert (info 2 3 :< Leaf "b")) ])) ] it "aligns context following insertions" $