Restore module in non-toplevel and test that

Author: Hi-Angel

purescript-font-lock.el

@@ -177,7 +177,7 @@ Returns keywords suitable for `font-lock-keywords'."
          ;; record fields or other identifiers.
          (toplevel-keywords
           (rx line-start (zero-or-more whitespace)
-              (group (or "type" "module" "import" "data" "class" "newtype"
+              (group (or "type" "import" "data" "class" "newtype"
                          "instance" "derive")
                      word-end)))
          ;; Reserved identifiers
@@ -186,7 +186,7 @@ Returns keywords suitable for `font-lock-keywords'."
           ;; spec syntax, but they are not reserved.
           ;; `_' can go in here since it has temporary word syntax.
           (regexp-opt
-           '("ado" "case" "do" "else" "if" "in" "infix"
+           '("ado" "case" "do" "else" "if" "in" "infix" "module"
              "infixl" "infixr" "let" "of" "then" "where" "_") 'words))
 
          ;; Top-level declarations

tests/purescript-font-lock-tests.el

@@ -154,3 +154,25 @@ still comment
      (40 40 nil)
      (41 43 font-lock-type-face)
      (44 45 nil))))
+
+(ert-deftest module-in-different-locations ()
+  (purescript-test-ranges
+   "module React.Basic.Hooks ( Component, module React.Basic
+                         , module Data.Tuple.Nested) where
+"
+   '((1 6 font-lock-keyword-face)
+     (7 7 nil)
+     (8 24 font-lock-type-face)
+     (25 27 nil)
+     (28 36 font-lock-type-face)
+     (37 38 nil)
+     (39 44 font-lock-keyword-face)
+     (45 45 nil)
+     (46 56 font-lock-type-face)
+     (57 84 nil)
+     (85 90 font-lock-keyword-face)
+     (91 91 nil)
+     (92 108 font-lock-type-face)
+     (109 110 nil)
+     (111 115 font-lock-keyword-face)
+     (116 116 nil))))