diff --git a/queries/haskell/folds.scm b/queries/haskell/folds.scm
new file mode 100644
index 000000000..28eadf8f3
--- /dev/null
+++ b/queries/haskell/folds.scm
@@ -0,0 +1,5 @@
+[
+ (exp_apply)
+ (exp_do)
+ (function)
+] @fold