🔥 some redundant imports & bindings.

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.

src/Diffing.hs

@@ -5,7 +5,6 @@ import Info
 import Interpreter
 import Language
 import Parser
-import Patch
 import Range
 import Renderer
 import Source hiding ((++))

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

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

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