diff --git a/queries/haskell/highlights.scm b/queries/haskell/highlights.scm
index c37c33b3e..fa342fb8e 100644
--- a/queries/haskell/highlights.scm
+++ b/queries/haskell/highlights.scm
@@ -38,7 +38,7 @@
   "∀"
 ] @repeat
 
-(pragma) @constant.macro
+(pragma) @preproc
 
 [
   "if"