unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-10-05 14:17:33 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #275 from noahhaasis/nicer-error-for-empty-match-list

Browse Source 
Add a nicer error message for empty match lists
This commit is contained in:
Rúnar 2018-12-16 09:19:43 -05:00 committed by GitHub
commit ad5f550183
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
parser-typechecker/src/Unison/TermParser.hs
View File

@ -80,8 +80,7 @@ match = do
start <- reserved "case"
scrutinee <- term
_ <- openBlockWith "of"
-- TODO: Produce a nice error message for empty match list
cases <- sepBy1 semi matchCase
cases <- sepBy1 semi matchCase P.<?> "at least one case in case/of"
_ <- closeBlock
pure $ Term.match (ann start <> ann (last cases)) scrutinee cases