diff --git a/src/A/I.hs b/src/A/I.hs
index f76c15c8..32455ddb 100644
--- a/src/A/I.hs
+++ b/src/A/I.hs
@@ -7,7 +7,7 @@ module A.I ( RM, UM, ISt (..)
            ) where
 
 import           A
-import           Control.Monad.State.Strict (State, evalState, gets, modify, runState, state)
+import           Control.Monad.State.Strict (State, gets, modify, runState, state)
 import           Data.Bifunctor             (second)
 import           Data.Foldable              (traverse_)
 import qualified Data.IntMap                as IM