From d0339dfd3f7806ecdd472b0a844add7f6257fc44 Mon Sep 17 00:00:00 2001 From: Kostiantyn Rybnikov Date: Thu, 17 Sep 2015 17:43:52 +0300 Subject: [PATCH 1/2] Expecting then Issue #884 --- tests/haskell-indentation-tests.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/tests/haskell-indentation-tests.el b/tests/haskell-indentation-tests.el index 61a6d34e7..cc0fb3f6d 100644 --- a/tests/haskell-indentation-tests.el +++ b/tests/haskell-indentation-tests.el @@ -556,5 +556,11 @@ foo = let ((3 0) 6 9) ((4 0) 4)) +(hindent-test "27 expecting then (GH-884)" " +foo = do + if True + then return () +" + ((4 0) 4)) ;;; haskell-indentation-tests.el ends here From 6084005148570287637b855cf59d3114f878dbee Mon Sep 17 00:00:00 2001 From: Kostiantyn Rybnikov Date: Fri, 18 Sep 2015 01:10:49 +0300 Subject: [PATCH 2/2] Expect failure --- 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 cc0fb3f6d..b698986fa 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 "27 expecting then (GH-884)" " +(hindent-test "27* expecting then (GH-884)" " foo = do if True then return ()