github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 21:16:12 +03:00
Code Issues Projects Releases Wiki Activity

try to print split diffs

Browse Source
This commit is contained in:
joshvera 2015-12-04 16:12:56 -05:00
parent 414191afd0
commit 8f659d36c0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Split.hs
View File

@ -12,6 +12,7 @@ import Control.Monad.Free
import qualified Data.Maybe as Maybe
import qualified Data.Set as Set
import Rainbow
import Data.ByteString.Char8 (pack)
type ClassName = String
@ -24,7 +25,7 @@ data HTML =
deriving (Eq, Show)
split :: Diff a Info -> String -> String -> IO ByteString
split _ _ _ = return mempty
split diff before after = return . pack . show $ diffToRows diff (0, 0) before after
data Row = Row [HTML] [HTML]
deriving (Eq, Show)