diff options
Diffstat (limited to 'queries/haskell/injections.scm')
| -rw-r--r-- | queries/haskell/injections.scm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/queries/haskell/injections.scm b/queries/haskell/injections.scm index d1c8fe5fb..59fe73357 100644 --- a/queries/haskell/injections.scm +++ b/queries/haskell/injections.scm @@ -1,8 +1,8 @@ ; ----------------------------------------------------------------------------- ; General language injection (quasiquote - ((quoter) @injection.language) - ((quasiquote_body) @injection.content)) + (quoter) @injection.language + (quasiquote_body) @injection.content) ((comment) @injection.content (#set! injection.language "comment")) @@ -21,28 +21,28 @@ (quasiquote (quoter) @_name (#any-of? @_name "cassius" "lucius") - ((quasiquote_body) @injection.content) + (quasiquote_body) @injection.content (#set! injection.language "css")) ; HTML: Text.Hamlet (quasiquote (quoter) @_name (#any-of? @_name "shamlet" "xshamlet" "hamlet" "xhamlet" "ihamlet") - ((quasiquote_body) @injection.content) + (quasiquote_body) @injection.content (#set! injection.language "html")) ; JS: Text.Julius (quasiquote (quoter) @_name (#any-of? @_name "js" "julius") - ((quasiquote_body) @injection.content) + (quasiquote_body) @injection.content (#set! injection.language "javascript")) ; TS: Text.TypeScript (quasiquote (quoter) @_name (#any-of? @_name "tsc" "tscJSX") - ((quasiquote_body) @injection.content) + (quasiquote_body) @injection.content (#set! injection.language "typescript")) ; ----------------------------------------------------------------------------- @@ -50,7 +50,7 @@ (quasiquote (quoter) @_name (#eq? @_name "hsx") - ((quasiquote_body) @injection.content) + (quasiquote_body) @injection.content (#set! injection.language "html")) ; ----------------------------------------------------------------------------- @@ -58,7 +58,7 @@ (quasiquote (quoter) @_name (#eq? @_name "aesonQQ") - ((quasiquote_body) @injection.content) + (quasiquote_body) @injection.content (#set! injection.language "json")) ; ----------------------------------------------------------------------------- @@ -67,10 +67,10 @@ (quasiquote (quoter) @injection.language (#eq? @injection.language "sql") - ((quasiquote_body) @injection.content)) + (quasiquote_body) @injection.content) (quasiquote (quoter) @_name (#any-of? @_name "persistUpperCase" "persistLowerCase" "persistWith") - ((quasiquote_body) @injection.content) + (quasiquote_body) @injection.content (#set! injection.language "haskell_persistent")) |