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

2023-04-17 21:45:36 +02:00 · 2023-04-17 21:45:36 +02:00 · ac85dc9352
commit ac85dc9352
parent 06b159973f
2 changed files with 5 additions and 5 deletions
--- a/lib/Quox/Parser/Parser.idr
+++ b/lib/Quox/Parser/Parser.idr
@ -306,7 +306,7 @@ mutual
      <|> [|TYPE universe|]
      <|> Nat  <$ resC "ℕ"
      <|> Zero <$ resC "zero"
-      <|> (nat <&> \n => fromNat n :# Nat)
+      <|> [|fromNat nat|]
      <|> [|V name|]
      <|> [|Tag tag|]