github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 12:51:52 +03:00
Code Issues Projects Releases Wiki Activity

Add a trace' function to help trace some bugs.

Browse Source
This commit is contained in:
Rob Rix 2015-12-10 15:11:42 -05:00
parent 3e8517a2a3
commit ed87838de6
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Split.hs
View File

@ -52,6 +52,9 @@ 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