diff options
| author | Simon-Kor <52245124+Simon-Kor@users.noreply.github.com> | 2024-08-27 02:13:29 +0200 |
|---|---|---|
| committer | Simon-Kor <52245124+Simon-Kor@users.noreply.github.com> | 2024-08-27 02:13:29 +0200 |
| commit | 604d7a87b4c45ab13ef03e3c7a611ad4f9342f23 (patch) | |
| tree | f5121f17d97dba1df8a815b0b21abfeb01c50513 /source/Syntax | |
| parent | 30f7c63ce566c993816607f3368c357233693aae (diff) | |
ambigus parse fix. The proof goal must be changed,
since now some could define a function with overlapping
and worng subdomains
Diffstat (limited to 'source/Syntax')
| -rw-r--r-- | source/Syntax/Concrete.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/source/Syntax/Concrete.hs b/source/Syntax/Concrete.hs index fe08fec..9d52995 100644 --- a/source/Syntax/Concrete.hs +++ b/source/Syntax/Concrete.hs @@ -373,7 +373,7 @@ grammar lexicon@Lexicon{..} = mdo -- 3 & \text{else} -- \end{cases} - functionDefineCase <- rule $ (,) <$> (_ampersand *> (expr <|> exprVar )) <*> (_comma *> formula) + functionDefineCase <- rule $ (,) <$> (_ampersand *> expr) <*> (_ampersand *> text _if *> formula) defineFunctionMathy <- rule $ DefineFunctionMathy <$> (_define *> beginMath *> varSymbol) -- Define $ f <*> (_colon *> varSymbol) -- : 'var' \to 'var' |