From ed87838de63747321ee04b5cea98b5c4c561fe46 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Thu, 10 Dec 2015 15:11:42 -0500
Subject: [PATCH] Add a trace' function to help trace some bugs.

---
 src/Split.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Split.hs b/src/Split.hs
index a40daa2ff..c1acebcd3 100644
--- a/src/Split.hs
+++ b/src/Split.hs
@@ -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