Garmelon/mima-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add nicer Show instance for Span

Browse source
This commit is contained in:
I-Al-Istannen 2020-03-31 12:03:24 +02:00
parent b226372ba7
commit f96f088eba
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/Mima/Asm/Phase1.hs
View file

@ -183,7 +183,14 @@ type Phase1 = [AsmToken Span]
type Parser = WriterT (Endo Phase1) (Parsec Void T.Text) type Parser = WriterT (Endo Phase1) (Parsec Void T.Text)
data Span = Span SourcePos SourcePos data Span = Span SourcePos SourcePos
deriving (Show)
instance Show Span where
show (Span start stop)
= "[" ++ formatSourcePos start ++ " - " ++ formatSourcePos stop ++ "]"
where
formatSourcePos sp
= formatPos (sourceLine sp) ++ ":" ++ formatPos (sourceColumn sp)
formatPos = show . unPos
addTokens :: [AsmToken Span] -> Parser () addTokens :: [AsmToken Span] -> Parser ()
addTokens = tell . Endo . (++) addTokens = tell . Endo . (++)