github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Remove the Attribute stuff.

Browse Source
This commit is contained in:
Rob Rix 2015-11-27 11:31:24 -05:00
parent be328aa0c2
commit 5c295fdcec
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/Unified.hs
View File

@ -28,9 +28,6 @@ unified diff before after = do
beforeChunk = maybe (chunk "") (change "-" . unifiedTerm before) $ Patch.before patch
afterChunk = maybe (chunk "") (change "+" . unifiedTerm after) $ Patch.after patch
beforeAttribute = Attribute { colour = Red, style = Bold }
afterAttribute = Attribute { colour = Green, style = Bold }
unifiedTerm :: String -> Term a Info -> Chunk String
unifiedTerm source term = fst $ cata f term