From 82aae9b37afec3527fadc3ead9c1b59c2cba6890 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Tue, 2 Aug 2016 12:11:05 -0400
Subject: [PATCH] Parsers take blobs now.

---
 src/Diffing.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Diffing.hs b/src/Diffing.hs
index a8a0a4e48..8c068c7b9 100644
--- a/src/Diffing.hs
+++ b/src/Diffing.hs
@@ -41,7 +41,7 @@ import qualified Data.Text as T
 diffFiles :: (HasField fields Category, HasField fields Cost, HasField fields Range, Eq (Record fields)) => Parser (Syntax Text) (Record fields) -> Renderer (Record fields) -> Both SourceBlob -> IO Text
 diffFiles parser renderer sourceBlobs = do
   let sources = source <$> sourceBlobs
-  terms <- traverse (parser . source) sourceBlobs
+  terms <- traverse parser sourceBlobs
 
   let areNullOids = runBothWith (\a b -> (oid a == nullOid || null (source a), oid b == nullOid || null (source b))) sourceBlobs
   let textDiff = case areNullOids of