From a6aee9de71069db8bab3820d8680931b2bea5e57 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Tue, 2 Aug 2016 12:14:09 -0400
Subject: [PATCH] :fire: a redundant binding.

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

diff --git a/src/Diffing.hs b/src/Diffing.hs
index 0c3d1fa70..6ffafcdd3 100644
--- a/src/Diffing.hs
+++ b/src/Diffing.hs
@@ -40,7 +40,6 @@ import qualified Data.Text as T
 -- | with respect to other IO actions.
 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 sourceBlobs
 
   let areNullOids = runBothWith (\a b -> (oid a == nullOid || null (source a), oid b == nullOid || null (source b))) sourceBlobs