font-lock: "foreign import" can't be preceded by text on the line

Author: Hi-Angel

purescript-font-lock.el

@@ -224,7 +224,8 @@ Returns keywords suitable for `font-lock-keywords'."
 
             (,reservedsym 1 (symbol-value 'purescript-operator-face))
             ;; Case for `foreign import'
-            ("\\<\\(foreign\\)[ \t]+\\(import\\>\\)"
+            (,(rx line-start (0+ whitespace)
+                  (group "foreign") (1+ whitespace) (group "import") word-end)
              (1 (symbol-value 'purescript-keyword-face) nil lax)
              (2 (symbol-value 'purescript-keyword-face) nil lax))
 

tests/purescript-font-lock-tests.el

@@ -312,6 +312,8 @@ foreign import func3
 foreign import
   func4 :: Effect Int
   foreign import func5 -- invalid indentation, but allowed in other context
+invalid_dont_highlight foreign import func6
+foreign importinvalid
 "
    '((1 7 font-lock-keyword-face)
      (8 8 nil)
@@ -348,4 +350,8 @@ foreign import
      (120 125 font-lock-keyword-face)
      (126 132 nil)
      (133 135 font-lock-comment-delimiter-face)
-     (136 185 font-lock-comment-face))))
+     (136 185 font-lock-comment-face)
+     (186 207 font-lock-function-name-face)
+     (208 229 nil)
+     (230 236 font-lock-function-name-face)
+     (237 251 nil))))