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

Get rid of the where clause

Browse Source
This commit is contained in:
Matt Diephouse 2016-01-14 14:54:43 -05:00
parent 44a1c68f8f
commit 78852e4041
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/Main.hs
View File

@ -69,10 +69,9 @@ printDiff arguments (aSource, bSource) diff = case format arguments of
let outputPath = if isDir
then path </> (takeFileName (sourceB arguments) -<.> ".html")
else path
IO.withFile outputPath IO.WriteMode (write rendered)
IO.withFile outputPath IO.WriteMode (flip TextIO.hPutStr rendered)
Nothing -> TextIO.putStr rendered
Patch -> putStr $ PatchOutput.patch diff aSource bSource
where write rendered h = TextIO.hPutStr h rendered
-- | Replace every string leaf with leaves of the words in the string.
breakDownLeavesByWord :: Source Char -> Term T.Text Info -> Term T.Text Info