From e6c81e1c22f655d5d0c0937608061e9a6f753b3f Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Tue, 12 Apr 2016 04:44:12 -0400
Subject: [PATCH] :fire: some redundant imports & bindings.

---
 src/DiffOutput.hs     | 1 -
 src/Diffing.hs        | 1 -
 src/Renderer/JSON.hs  | 1 -
 src/Renderer/Patch.hs | 2 +-
 src/Renderer/Split.hs | 1 -
 5 files changed, 1 insertion(+), 5 deletions(-)

diff --git a/src/DiffOutput.hs b/src/DiffOutput.hs
index 8516a0ee9..d7ab99e95 100644
--- a/src/DiffOutput.hs
+++ b/src/DiffOutput.hs
@@ -12,7 +12,6 @@ import Source
 import System.Directory
 import System.FilePath
 import qualified System.IO as IO
-import Data.String
 import Data.Text hiding (split)
 
 -- | Returns a rendered diff given a parser, diff arguments and two source blobs.
diff --git a/src/Diffing.hs b/src/Diffing.hs
index 9eaf55468..bbaf48ffc 100644
--- a/src/Diffing.hs
+++ b/src/Diffing.hs
@@ -5,7 +5,6 @@ import Info
 import Interpreter
 import Language
 import Parser
-import Patch
 import Range
 import Renderer
 import Source hiding ((++))
diff --git a/src/Renderer/JSON.hs b/src/Renderer/JSON.hs
index 033e9469c..1c06c4ca0 100644
--- a/src/Renderer/JSON.hs
+++ b/src/Renderer/JSON.hs
@@ -12,7 +12,6 @@ import Data.Aeson hiding (json)
 import Data.Aeson.Encode
 import Data.Functor.Both
 import Data.OrderedMap hiding (fromList)
-import Data.Text
 import Data.Text.Lazy (toStrict)
 import Data.Text.Lazy.Builder (toLazyText)
 import qualified Data.Text as T
diff --git a/src/Renderer/Patch.hs b/src/Renderer/Patch.hs
index 06f965904..b6f3b1bff 100644
--- a/src/Renderer/Patch.hs
+++ b/src/Renderer/Patch.hs
@@ -25,7 +25,7 @@ import Data.Text (pack, Text)
 
 -- | Render a timed out file as a truncated diff.
 truncatePatch :: DiffArguments -> Both SourceBlob -> Text
-truncatePatch arguments blobs = pack $ header blobs ++ "#timed_out\nTruncating diff: timeout reached.\n"
+truncatePatch _ blobs = pack $ header blobs ++ "#timed_out\nTruncating diff: timeout reached.\n"
 
 -- | Render a diff in the traditional patch format.
 patch :: Renderer a
diff --git a/src/Renderer/Split.hs b/src/Renderer/Split.hs
index 1cb6d58a2..be999fb60 100644
--- a/src/Renderer/Split.hs
+++ b/src/Renderer/Split.hs
@@ -8,7 +8,6 @@ import Control.Monad.Free
 import Data.Foldable
 import Data.Functor.Both
 import Data.Monoid
-import qualified Data.Text as T
 import qualified Data.Text.Lazy as TL
 import Diff
 import Info