fix comment parsing
This commit is contained in:
@@ -1,5 +1,5 @@
|
||||
module Ex
|
||||
|
||||
-- comment
|
||||
data Bool : Type where
|
||||
True : Bool
|
||||
False : Bool
|
||||
|
||||
@@ -26,8 +26,8 @@ rawTokens : Tokenizer (Token Kind)
|
||||
rawTokens
|
||||
= match (alpha <+> many identMore) checkKW
|
||||
<|> match (some digit) (Tok Number)
|
||||
<|> match (some opChar) (\s => Tok Oper s)
|
||||
<|> match (lineComment (exact "--")) (Tok Space)
|
||||
<|> match (some opChar) (\s => Tok Oper s)
|
||||
<|> match symbol (Tok Symbol)
|
||||
<|> match spaces (Tok Space)
|
||||
|
||||
|
||||
@@ -12,6 +12,7 @@ public export
|
||||
data Literal = LString String | LInt Int | LBool Bool
|
||||
public export
|
||||
data RigCount = Rig0 | RigW
|
||||
-- I think I got Eq from pi-forall, it uses it for equality args (which are kinda like Prop/Rig0?)
|
||||
public export
|
||||
data Plicity = Implicit | Explicit | Eq
|
||||
|
||||
|
||||
Reference in New Issue
Block a user