github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-05 14:11:33 +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.Maybe as Maybe
import qualified Data.Set as Set import qualified Data.Set as Set
import Rainbow import Rainbow
import Data.ByteString.Char8 (pack)
type ClassName = String type ClassName = String
@ -24,7 +25,7 @@ data HTML =
deriving (Eq, Show) deriving (Eq, Show)
split :: Diff a Info -> String -> String -> IO ByteString 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] data Row = Row [HTML] [HTML]
deriving (Eq, Show) deriving (Eq, Show)