1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00

PrettyDiff carries the Source.

This commit is contained in:
Rob Rix 2016-04-25 12:53:15 -04:00
parent 564dd1d2c7
commit 43359cad9c

View File

@ -103,4 +103,4 @@ leaf info = Free . Annotated info . Leaf
info :: Int -> Int -> Info
info = ((\ r -> Info r mempty 0) .) . Range
newtype PrettyDiff = PrettyDiff { unPrettyDiff :: Join These [SplitDiff String Info] }
data PrettyDiff = PrettyDiff { unPrettySource :: Source.Source Char, unPrettyDiff :: [Join These (SplitDiff String Info)] }