From e5eebdaad4fb2b22afafd8b288f485caf234acd0 Mon Sep 17 00:00:00 2001 From: Kostiantyn Rybnikov Date: Thu, 17 Sep 2015 17:40:23 +0300 Subject: [PATCH 1/2] Parse unindented where-clause properly --- tests/haskell-indentation-tests.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/tests/haskell-indentation-tests.el b/tests/haskell-indentation-tests.el index b698986fa..4b05a28d3 100644 --- a/tests/haskell-indentation-tests.el +++ b/tests/haskell-indentation-tests.el @@ -556,6 +556,13 @@ foo = let ((3 0) 6 9) ((4 0) 4)) +(hindent-test "26 should parse unindented where-clause properly" " +foo = do + return () + where + bar = undefined" + ((4 0) 4)) + (hindent-test "27* expecting then (GH-884)" " foo = do if True From b7d68d0dce61c65ba6606c5133695f51516a61df Mon Sep 17 00:00:00 2001 From: Kostiantyn Rybnikov Date: Fri, 18 Sep 2015 01:10:18 +0300 Subject: [PATCH 2/2] Expect failure at this point --- tests/haskell-indentation-tests.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/haskell-indentation-tests.el b/tests/haskell-indentation-tests.el index 4b05a28d3..44e8c1e6a 100644 --- a/tests/haskell-indentation-tests.el +++ b/tests/haskell-indentation-tests.el @@ -556,7 +556,7 @@ foo = let ((3 0) 6 9) ((4 0) 4)) -(hindent-test "26 should parse unindented where-clause properly" " +(hindent-test "26* should parse unindented where-clause properly" " foo = do return () where