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

Updated ShowModule to also show the position of identifiers

parent ed1825b1
......@@ -515,7 +515,7 @@ showsField sa (Field pos ident a)
showsPosition :: Position -> ShowS
showsPosition Position { line = l, column = c } = showsPair shows shows (l, c)
showsPosition _ = id
showsPosition _ = showsString "NoPos"
-- showsPosition (Position file row col)
-- = showsString "(Position "
-- . shows file . space
......@@ -548,8 +548,9 @@ showsPair sa sb (a,b)
= showsString "(" . sa a . showsString "," . sb b . showsString ")"
showsIdent :: Ident -> ShowS
showsIdent (Ident _ x n)
= showsString "(Ident " . shows x . space . shows n . showsString ")"
showsIdent (Ident p x n)
= showsString "(Ident " . showsPosition p . space
. shows x . space . shows n . showsString ")"
showsQualIdent :: QualIdent -> ShowS
showsQualIdent (QualIdent mident ident)
......
Supports Markdown
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