edwinb/Idris2-boot
1
1
Fork 0
mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-10-26 17:33:47 +03:00
Code Issues Projects Releases Wiki Activity

Print non-namespaced idents backwards-compatibly.

Browse Source
This commit is contained in:
Matus Tejiscak 2020-04-18 12:00:23 +02:00
parent f834c283ea
commit 3e398584b3
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Parser/Lexer.idr
View File

@ -24,7 +24,6 @@ data Token = NSIdent (List String)
export
Show Token where
show (NSIdent xs) = "namespaced ident " ++ show xs
show (HoleIdent x) = "hole identifier " ++ x
show (Literal x) = "literal " ++ show x
show (StrLit x) = "string " ++ show x
@ -39,6 +38,13 @@ Show Token where
show (RecordField x) = "record field " ++ x
show (Pragma x) = "pragma " ++ x
show EndInput = "end of input"
show (NSIdent [x]) = "identifier " ++ x
show (NSIdent xs) = "namespaced identifier " ++ dotSep (reverse xs)
where
dotSep : List String -> String
dotSep [] = ""
dotSep [x] = x
dotSep (x :: xs) = x ++ concat ["." ++ y | y <- xs]
export
Show (TokenData Token) where