Fix module declaration indentation

Author: gracjan

haskell-indentation.el

@@ -495,6 +495,7 @@ fixes up only indentation."
     ("type"     . haskell-indentation-data)
     ("newtype"  . haskell-indentation-data)
     ("import"   . haskell-indentation-import)
+    ("where"    . haskell-indentation-toplevel-where)
     ("class"    . haskell-indentation-class-declaration)
     ("instance" . haskell-indentation-class-declaration))
   "Alist of toplevel keywords with associated parsers.")
@@ -684,21 +685,32 @@ For example
   "Parse module declaration."
   (haskell-indentation-with-starter
    (lambda ()
-     (let ((current-indent (current-column)))
-       (haskell-indentation-read-next-token)
-       (when (string= current-token "(")
-         (haskell-indentation-list
-          #'haskell-indentation-module-export
-          ")" ","))
-       (when (eq current-token 'end-tokens)
-         (haskell-indentation-add-indentation current-indent)
-         (throw 'parse-end nil))
-       (when (string= current-token "where")
+     (haskell-indentation-read-next-token)
+     (when (string= current-token "(")
+       (haskell-indentation-list
+        #'haskell-indentation-module-export
+        ")" ","))
+     (if (string= current-token "where")
          (haskell-indentation-read-next-token)
-         (when (eq current-token 'end-tokens)
-           (haskell-indentation-add-layout-indent)
+
+       (when (eq current-token 'end-tokens)
+         (when (member following-token '(value no-following-token "("))
+           (haskell-indentation-add-indentation
+            (+ starter-indent haskell-indentation-starter-offset))
+           (haskell-indentation-add-indentation
+            (+ left-indent haskell-indentation-starter-offset))
            (throw 'parse-end nil))
-         (haskell-indentation-layout #'haskell-indentation-toplevel))))))
+         (haskell-indentation-add-layout-indent)
+         (throw 'parse-end nil))))))
+
+(defun haskell-indentation-toplevel-where ()
+  "Parse 'where' that we may hit as a standalone in module
+declaration."
+  (haskell-indentation-read-next-token)
+
+  (when (eq current-token 'end-tokens)
+    (haskell-indentation-add-layout-indent)
+    (throw 'parse-end nil)))
 
 (defun haskell-indentation-module-export ()
   "Parse export list."
@@ -938,7 +950,8 @@ layout starts."
                           (haskell-indentation-expression-token-p following-token))
                          (string= following-token ";")
                          (and (equal layout-indent 0)
-                              (member following-token (mapcar #'car haskell-indentation-toplevel-list))))
+                              (member following-token (mapcar #'car haskell-indentation-toplevel-list))
+                              (not (string= following-token "where"))))
                  (haskell-indentation-add-layout-indent))
                (throw 'return nil))
               (t (throw 'return nil))))))

tests/haskell-indentation-tests.el

@@ -898,7 +898,7 @@ newtype instance T Char = TC Bool"
               (3 0)
               (4 0 26))
 
-(hindent-test "52a* module simplest case two lines" "
+(hindent-test "52a module simplest case two lines" "
 module A.B
 where"
               (1 0)
@@ -910,7 +910,7 @@ module A.B where"
               (1 0)
               (2 0))
 
-(hindent-test "52c* module with exports" "
+(hindent-test "52c module with exports" "
 module A.B
   ( x
   , y
@@ -958,7 +958,7 @@ module
               (1 0)
               (2 2))
 
-(hindent-test "57* module continued" "
+(hindent-test "57 module continued" "
 module X"
               (1 0)
               (2 2))
@@ -968,7 +968,7 @@ module X where"
               (1 0)
               (2 0))
 
-(hindent-test "59* module where same line" "
+(hindent-test "59 module where same line" "
 module X
    where"
               (1 0)