github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00
Code Issues Projects Releases Wiki Activity

Add a Unified datatype to render to.

Browse Source
This commit is contained in:
Rob Rix 2015-11-27 14:15:34 -05:00
parent f2cede523e
commit ea37bf8889
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/Unified.hs
View File

@ -11,6 +11,10 @@ import Data.List hiding (foldl)
import qualified Data.Map as Map
import Rainbow
data Unified =
One (Chunk String)
| Many [Unified]
unified :: Diff a Info -> String -> String -> IO ByteString
unified diff before after = do
renderer <- byteStringMakerFromEnvironment