diff --git a/src/Main.hs b/src/Main.hs
index 8552e08..6769f9a 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -178,9 +178,9 @@ oldReleases conf rs = map mergePath toDelete
 ------------------------------------------------------------------------------
 cleanReleases :: RC (Maybe String)
 cleanReleases = do
-  state <- get
+  st <- get
   conf <- use config
-  allReleases <- liftIO $ runEitherT $ evalStateT releases state
+  allReleases <- liftIO $ runEitherT $ evalStateT releases st
 
   case allReleases of
     Left err -> lift $ left err