Commit 95a841fd authored by Björn Peemöller 's avatar Björn Peemöller
Browse files

Fix representation of identifiers in token stream

parent 230f5299
......@@ -124,7 +124,7 @@ showAttributes (CharAttributes c _) = show c
showAttributes (IntAttributes i _) = show i
showAttributes (FloatAttributes f _) = show f
showAttributes (StringAttributes s _) = show s
showAttributes (IdentAttributes m i) = "\"" ++ (intercalate "." (m ++ [i])) ++ "\""
showAttributes (IdentAttributes m i) = show $ intercalate "." (m ++ [i])
showAttributes (OptionsAttributes t a) = "(" ++ show t ++ ")" ++ ' ' : show a
-- Concatenate two 'String's with a smart space in between,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment