Unnamed repository; edit this file 'description' to name the repository.
Diffstat (limited to 'runtime/queries/haskell/textobjects.scm')
-rw-r--r--runtime/queries/haskell/textobjects.scm29
1 files changed, 9 insertions, 20 deletions
diff --git a/runtime/queries/haskell/textobjects.scm b/runtime/queries/haskell/textobjects.scm
index e180c7a6..9870dc4a 100644
--- a/runtime/queries/haskell/textobjects.scm
+++ b/runtime/queries/haskell/textobjects.scm
@@ -1,24 +1,13 @@
(comment) @comment.inside
-(comment)+ @comment.around
-(newtype
- (newtype_constructor
- (_) @class.inside)) @class.around
-(data_type
- constructors: (_) @class.inside) @class.around
-(decl/function
- (match expression:(_) @function.inside)) @function.around
-(lambda
- expression:(_) @function.inside) @function.around
+[
+ (adt)
+ (decl_type)
+ (newtype)
+] @class.around
-(decl/function
- patterns: (patterns
- (_) @parameter.inside))
+((signature)? (function rhs:(_) @function.inside)) @function.around
+(exp_lambda) @function.around
-(expression/lambda
- patterns: (patterns
- (_) @parameter.inside))
-
-(decl/function
- (infix
- (pattern) @parameter.inside))
+(adt (type_variable) @parameter.inside)
+(patterns (_) @parameter.inside)