github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 05:41:54 +03:00
Code Issues Projects Releases Wiki Activity

Remove show instance

Browse Source
This commit is contained in:
joshvera 2018-06-25 17:39:27 -04:00
parent 15ba6a9389
commit 79f193640c
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Syntax.hs
View File

@ -236,10 +236,6 @@ newtype ErrorStack = ErrorStack { unErrorStack :: [ErrorSite] }
deriving anyclass (Named, Message) deriving anyclass (Named, Message)
deriving newtype (MessageField) deriving newtype (MessageField)
-- instance Show ErrorStack where
-- showsPrec _ = shows . map showPair . unErrorStack
-- where showPair (sym, loc) = sym <> " " <> srcLocFile loc <> ":" <> show (srcLocStartLine loc) <> ":" <> show (srcLocStartCol loc)
instance HasDefault ErrorStack where instance HasDefault ErrorStack where
def = ErrorStack mempty def = ErrorStack mempty