1
1
mirror of https://github.com/github/semantic.git synced 2024-12-01 09:15:01 +03:00

print filename at the end

This commit is contained in:
joshvera 2016-07-27 18:23:52 -04:00
parent bf9e385448
commit e3ccbca5ae

View File

@ -122,7 +122,7 @@ instance (Eq a, Arbitrary a) => Arbitrary (DiffSummary a) where
instance P.Pretty DiffInfo where
pretty LeafInfo{..} = squotes (string $ toSL termName) <+> (string $ toSL categoryName)
pretty BranchInfo{..} = mconcat $ punctuate (string "," <> space) (pretty <$> branches)
pretty ErrorInfo{..} = "Syntax error at" <+> (string . toSL $ displaySourceSpan errorSpan)
pretty ErrorInfo{..} = "syntax error at" <+> (string . toSL $ displayStartEndPos errorSpan) <+> "in" <+> (string . toSL $ spanName errorSpan)
annotatedSummaries :: DiffSummary DiffInfo -> [Text]
annotatedSummaries DiffSummary{..} = show . (P.<> maybeParentContext parentAnnotations) <$> summaries patch