diff --git a/queries/haskell/highlights.scm b/queries/haskell/highlights.scm
index cef00a55d..89695bae5 100644
--- a/queries/haskell/highlights.scm
+++ b/queries/haskell/highlights.scm
@@ -144,7 +144,7 @@
 (constructor) @constructor
 
 ; True or False
-((constructor) @_bool (#match? @_bool "(True|False)")) @boolean
+((constructor) @boolean (#any-of? @boolean "True" "False"))
 
 
 ;; ----------------------------------------------------------------------------