rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

fix some comments

Browse source
This commit is contained in:
rhiannon morris 2023-11-05 15:41:21 +01:00
parent da3cd404f3
commit 6c8ebfb804
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/Quox/Parser/Lexer.idr
View file

@ -163,7 +163,7 @@ private %inline
supToNat : String -> Nat supToNat : String -> Nat
supToNat = cast . pack . map fromSup . unpack supToNat = cast . pack . map fromSup . unpack
-- ★0, Type0. base ★/Type is a Reserved -- ★0, Type0. base ★/Type is a Reserved and ★¹/Type¹ are sequences of two tokens
private private
universe : Tokenizer ExtToken universe : Tokenizer ExtToken
universe = universeWith "★" <|> universeWith "Type" where universe = universeWith "★" <|> universeWith "Type" where
@ -312,7 +312,7 @@ tokens = choice $
map skip [pred isWhitespace, map skip [pred isWhitespace,
lineComment (exact "--" <+> reject symCont), lineComment (exact "--" <+> reject symCont),
blockComment (exact "{-") (exact "-}")] <+> blockComment (exact "{-") (exact "-}")] <+>
[universe] <+> -- ★ᵢ takes precedence over bare ★ [universe] <+> -- Type<i> takes precedence over bare Type
map resTokenizer reserved <+> map resTokenizer reserved <+>
[sup, nat, string, tag, name] [sup, nat, string, tag, name]