rhi/quox
rhi
/
quox
1
0
Fork 0
Code Issues 16 Pull Requests 2 Releases Wiki Activity

don't put a ∷ℕ on nat literals that's silly

This commit is contained in:
rhiannon morris 2023-04-17 21:45:36 +02:00
parent 06b159973f
commit ac85dc9352
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Quox/Parser/Parser.idr
View File

@ -306,7 +306,7 @@ mutual
<|> [|TYPE universe|]
<|> Nat <$ resC "ℕ"
<|> Zero <$ resC "zero"
<|> (nat <&> \n => fromNat n :# Nat)
<|> [|fromNat nat|]
<|> [|V name|]
<|> [|Tag tag|]

8
tests/Tests/Parser.idr
View File

@ -229,7 +229,7 @@ tests = "parser" :- [
parsesAs term "Nat" Nat,
parsesAs term "zero" Zero,
parsesAs term "succ n" (Succ $ V "n"),
parsesAs term "3" (Succ (Succ (Succ Zero)) :# Nat),
parsesAs term "3" (Succ (Succ (Succ Zero))),
parseFails term "succ"
],
@ -237,8 +237,8 @@ tests = "parser" :- [
parsesAs term "[1.ℕ]" $ BOX One Nat,
parsesAs term "[ω. ℕ × ℕ]" $ BOX Any (Sig Nothing Nat Nat),
parsesAs term "[a]" $ Box (V "a"),
parsesAs term "[0]" $ Box (Zero :# Nat),
parsesAs term "[1]" $ Box (Succ Zero :# Nat)
parsesAs term "[0]" $ Box Zero,
parsesAs term "[1]" $ Box (Succ Zero)
],
"case" :- [
@ -274,7 +274,7 @@ tests = "parser" :- [
CaseNat (V "a") (Just "n'", Zero, Nothing, V "b"),
parsesAs term "caseω n return ℕ of { succ _, 1.ih ⇒ ih; zero ⇒ 0; }" $
Case Any (V "n") (Nothing, Nat) $
CaseNat (Zero :# Nat) (Nothing, One, Just "ih", V "ih"),
CaseNat Zero (Nothing, One, Just "ih", V "ih"),
parseFails term "caseω n return A of { zero ⇒ a }",
parseFails term "caseω n return ℕ of { succ ⇒ 5 }"
],