🔥 a bunch more redundant imports.

test/AlignmentSpec.hs

@@ -3,12 +3,11 @@ module AlignmentSpec where
 
 import Alignment
 import Control.Arrow ((&&&))
-import Control.Monad.Free (Free, wrap)
+import Control.Monad.Free (wrap)
 import Control.Monad.State
 import Data.Align hiding (align)
 import Data.Bifunctor
 import Data.Bifunctor.Join
-import Data.Foldable (toList)
 import Data.Functor.Both as Both hiding (fst, snd)
 import Data.Functor.Listable
 import Data.List (nub, sort)
@@ -21,7 +20,6 @@ import qualified Data.Source as Source
 import qualified Data.Text as Text
 import Data.These
 import Diff
-import Patch
 import SplitDiff
 import Syntax
 import Term

test/Data/RandomWalkSimilarity/Spec.hs

@@ -4,12 +4,11 @@ module Data.RandomWalkSimilarity.Spec where
 import Category
 import Data.Array.IArray
 import Data.Bifunctor
-import Data.Functor.Listable
+import Data.Functor.Listable ()
 import Data.Record
 import Data.These
 import Diff
 import Info
-import Patch
 import RWS
 import Syntax
 import Term

test/InterpreterSpec.hs

@@ -2,14 +2,12 @@
 module InterpreterSpec where
 
 import Category
-import Control.Monad.Free (wrap)
 import Data.Functor.Both
 import Data.Functor.Foldable hiding (Nil)
 import Data.Functor.Listable
 import Data.Record
 import Diff
 import Interpreter
-import Patch
 import Syntax
 import Term
 import Test.Hspec (Spec, describe, it, parallel)

test/SpecHelpers.hs

@@ -7,23 +7,17 @@ module SpecHelpers
 ) where
 
 import Control.Exception
-import Control.Monad.Free (Free, hoistFree)
-import Data.Bifunctor (first)
 import Data.Blob
 import qualified Data.ByteString as B
 import Data.Functor.Both
-import Data.Functor.Listable
 import Data.Maybe (fromMaybe)
 import Data.Source
-import Diff
 import Language
-import Patch
 import Prelude hiding (readFile)
 import Renderer
 import Semantic
 import Semantic.Task
 import System.FilePath
-import Term
 
 -- | Returns an s-expression formatted diff for the specified FilePath pair.
 diffFilePaths :: Both FilePath -> IO B.ByteString