diff --git a/src/MA/Algorithm/Split.hs b/src/MA/Algorithm/Split.hs
index 8cf2acf14e6d101924c93ea431ca7ef660c86c78..304294431f2e90adada394aed1e7a37e61985f0f 100644
--- a/src/MA/Algorithm/Split.hs
+++ b/src/MA/Algorithm/Split.hs
@@ -10,8 +10,6 @@ import           Prelude hiding (pred)
 import           Control.Monad
 import           Control.Monad.ST
 import           Control.Monad.ST.Unsafe (unsafeSTToIO)
-import           Data.Function (on)
-import           Data.List (delete,maximumBy)
 import           Data.Maybe (maybeToList)
 import           Data.STRef
 import           System.IO.Unsafe (unsafeDupablePerformIO)
@@ -19,7 +17,6 @@ import           System.IO.Unsafe (unsafeDupablePerformIO)
 import           Control.Monad.Extra (unlessM, whenM, ifM)
 import           Control.Monad.Reader
 import           Data.Tuple.Extra (snd3)
-import           Data.Vector (Vector)
 import qualified Data.Vector as V
 import qualified Data.Vector.Mutable as VM
 import qualified Data.Vector.Unboxed as VU
@@ -29,7 +26,7 @@ import           Data.Algorithm.PossibleMajorityCandidate
 import           Data.BlockQueue (BlockQueue)
 import qualified Data.BlockQueue as Queue
 import           Data.MorphismEncoding
-import           Data.RefinablePartition (State, Block)
+import           Data.RefinablePartition (Block)
 import qualified Data.RefinablePartition as Partition
 import           MA.RefinementInterface (RefinementInterface)
 import qualified MA.RefinementInterface as RI