Allow indentation on \begin{code} (#172)

Author: boringcactus

CHANGELOG.md

@@ -3,6 +3,7 @@
 - Fix lists of the form ['|'...] being highlighted as quasiquotations
   ([#170](https://github.com/JustusAdam/language-haskell/issues/170)).
 - Proper highlighting of lambda case, including fixing the highlighting of subsequent braces (which were wrongly highlighted as record syntax).
+- Recognize indented `\begin{code}` boundary in literate haskell files.
 
 ## 3.3.0 - 25.06.2020
 

syntaxes/literateHaskell.YAML-tmLanguage

@@ -3,7 +3,7 @@ fileTypes:
 keyEquivalent: ^~H
 name: 'Literate Haskell'
 patterns:
-  - begin: '^((\\)begin)({)code(})(\s*\n)?'
+  - begin: '^\s*((\\)begin)({)code(})(\s*\n)?'
     captures:
       '1': {name: support.function.be.latex}
       '2': {name: punctuation.definition.function.latex}

test/tests/LiterateHaskell.lhs

@@ -4,3 +4,17 @@
 -- <~~- keyword.operator.lambda.haskell
 --    ^^ keyword.operator.arrow.haskell
 --         ^ keyword.operator.infix.haskell
+
+\begin{code}
+-- <------------ meta.embedded.block.haskell.latex
+\ x -> x + x
+-- <- keyword.operator.lambda.haskell
+--  ^^ keyword.operator.arrow.haskell
+--       ^ keyword.operator.infix.haskell
+\end{code}
+-- <---------- meta.embedded.block.haskell.latex
+
+\ x -> x + x
+-- <- - keyword.operator.lambda.haskell
+--  ^^ - keyword.operator.arrow.haskell
+--       ^ - keyword.operator.infix.haskell

test/tickets/T0172.lhs

@@ -0,0 +1,14 @@
+-- SYNTAX TEST "text.tex.latex.haskell" "Literate Haskell"
+
+    \begin{code}
+--  ^^^^^^^^^^^^ meta.embedded.block.haskell.latex
+\ x -> x + x
+-- <- keyword.operator.lambda.haskell
+--  ^^ keyword.operator.arrow.haskell
+--       ^ keyword.operator.infix.haskell
+\end{code}
+
+\ x -> x + x
+-- <- - keyword.operator.lambda.haskell
+--  ^^ - keyword.operator.arrow.haskell
+--       ^ - keyword.operator.infix.haskell