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

Remove Debug.Trace.

Browse Source
This commit is contained in:
Rob Rix 2015-12-18 16:16:43 -05:00
parent 7ed7c71a63
commit c70c14bf1b
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Split.hs
View File

@ -18,7 +18,6 @@ import qualified OrderedMap as Map
import Data.Maybe
import Data.Monoid
import qualified Data.Set as Set
import Debug.Trace
import Data.List (intersperse)
type ClassName = String
@ -54,9 +53,6 @@ instance ToMarkup HTML where
toMarkup (Div className children) = classifyMarkup className . div $ mconcat (toMarkup <$> children)
toMarkup (Dt key) = dt $ string key
trace' :: Show a => a -> a
trace' a = traceShow a a
split :: Diff a Info -> String -> String -> IO ByteString
split diff before after = return . renderHtml
. docTypeHtml