From 7bb74f73153172b0d411935b8d929487329a31f4 Mon Sep 17 00:00:00 2001 From: Joscha Date: Thu, 2 Apr 2020 11:15:54 +0000 Subject: [PATCH] Add back show instance for Span --- src/Mima/Asm/Phase1.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/Mima/Asm/Phase1.hs b/src/Mima/Asm/Phase1.hs index bc5d426..02e5106 100644 --- a/src/Mima/Asm/Phase1.hs +++ b/src/Mima/Asm/Phase1.hs @@ -184,7 +184,12 @@ instance Onion AsmToken where peel (TokenComment a _ _) = a data Span = Span SourcePos SourcePos - deriving (Show) + +instance Show Span where + show (Span start end) = "<" ++ showPos start ++ "-" ++ showPos end ++ ">" + where + showPos pos = + show (unPos $ sourceLine pos) ++ ":" ++ show (unPos $ sourceColumn pos) type Phase1 = [AsmToken Span]