summaryrefslogtreecommitdiff
path: root/source/Syntax/Concrete
diff options
context:
space:
mode:
authoradelon <22380201+adelon@users.noreply.github.com>2024-05-21 19:23:59 +0200
committeradelon <22380201+adelon@users.noreply.github.com>2024-05-21 19:23:59 +0200
commitd87aa179ade758a02a9b1609dadc07bf842df635 (patch)
treedcdf232039309ac3eb66fad112be06928d26f503 /source/Syntax/Concrete
parent1ea35d4861f29faa5d7eab25c7773c0d9b638b38 (diff)
Allow line breaks via `\textbox`, handle `\left`/`\right`
Diffstat (limited to 'source/Syntax/Concrete')
-rw-r--r--source/Syntax/Concrete/Keywords.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/source/Syntax/Concrete/Keywords.hs b/source/Syntax/Concrete/Keywords.hs
index e0f577e..135cdac 100644
--- a/source/Syntax/Concrete/Keywords.hs
+++ b/source/Syntax/Concrete/Keywords.hs
@@ -203,7 +203,7 @@ _haveIntro = _thus <|> _particularly <|> _have
_colon :: Prod r Text (Located Token) SourcePos
_colon = symbol ":" ? ":"
_pipe :: Prod r Text (Located Token) SourcePos
-_pipe = symbol "|" <|> command "mid" ? "\\mid"
+_pipe = (optional (command "middle") *> symbol "|") <|> command "mid" ? "\\mid"
_comma :: Prod r Text (Located Token) SourcePos
_comma = symbol "," ? ","
_commaAnd :: Prod r Text (Located Token) SourcePos
@@ -219,4 +219,4 @@ _eq = symbol "=" ? "="
_in :: Prod r Text (Located Token) SourcePos
_in = symbol "∈" <|> command "in" ? "\\in"
_subseteq :: Prod r Text (Located Token) SourcePos
-_subseteq = command "subseteq" ? ":"
+_subseteq = command "subseteq" ? "\\subseteq"