Highlight OPAQUE pragma

CHANGELOG.md

@@ -11,6 +11,7 @@
     - handle explicit semicolons/braces for layout.
 - Properly highlight `family`/`instance` in type/data family declarations and
   instances when `family`/`instance` is on a separate line.
+- Highlight `{-# OPAQUE foo #-}` pragma, thanks to [@bodigrim](http://github.com/bodigrim).
 
 ## 3.8.0 - 14.06.2026
 

syntax-examples/haskell.hs

@@ -11,12 +11,12 @@ someFunc = do
     case (a :: Bool) of
         Nothing -> b
     return 6
-  where 
+  where
     ident = 4
     ident' = 9
 
 
-anotherFunc arg = do 
+anotherFunc arg = do
     { let thing = 5>
     ; arg <- doSomething 5
     ; let thing = 5

syntaxes/haskell.YAML-tmLanguage

@@ -841,7 +841,7 @@ repository:
             |MINIMAL|UNPACK|OVERLAPS|INCOHERENT
             |NOUNPACK|SOURCE|OVERLAPPING|OVERLAPPABLE|INLINE
             |NOINLINE|INLINE?ABLE|CONLIKE|LINE|COLUMN|RULES
-            |COMPLETE)\b(?!')
+            |COMPLETE|OPAQUE)\b(?!')
         name: keyword.other.preprocessor.haskell
       - begin: '(?i)\b(DEPRECATED|WARNING)\b'
         beginCaptures:

test/tests/Opaque.hs

@@ -0,0 +1,6 @@
+-- SYNTAX TEST "source.haskell" "OPAQUE pragma"
+
+f :: Int -> Int
+f x = 3 * x
+{-# OPAQUE f #-}
+--  ^^^^^^ keyword.other.preprocessor.haskell