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

printDiff can return a Renderer now

Browse Source
This commit is contained in:
Matt Diephouse 2016-01-14 15:10:56 -05:00
parent 3a9803ee15
commit 61b65533ef
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/Main.hs
View File

@ -7,6 +7,7 @@ import qualified Parsers as P
import Syntax
import Range
import qualified PatchOutput
import Renderer
import Split
import Term
import Unified
@ -56,7 +57,7 @@ diff :: (Eq a, Eq annotation, Categorizable annotation) => Term a annotation ->
diff = interpret comparable
-- | Print a diff, given the command-line arguments, source files, and terms.
printDiff :: Arguments -> Diff T.Text Info -> (Source Char, Source Char) -> IO ()
printDiff :: Arguments -> Renderer T.Text (IO ())
printDiff arguments diff sources = case format arguments of
Unified -> do
rendered <- unified diff sources