Merge pull request #897 from gracjan/pr-support-where-after-any-expression

Support `where` keyword after any expression

Author: gracjan

haskell-indentation.el

@@ -987,7 +987,10 @@ parser.  If parsing ends here, set indentation to left-indent."
     (haskell-indentation-add-indentation current-indent)
     (throw 'parse-end nil))
   (let ((current-indent (current-column)))
-    (funcall parser)))
+    (funcall parser)
+    (when (equal current-token "where")
+      (haskell-indentation-with-starter
+       #'haskell-indentation-expression-layout nil))))
 
 (defun haskell-indentation-guard ()
   "Parse \"guard\" statement."

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