non-effectful cleanups

1 files changed, 3 insertions, 3 deletions

diff --git a/fsmgr.hs b/fsmgr.hs
index 862a5bf..c850d0f 100644
--- a/fsmgr.hs
+++ b/fsmgr.hs
@@ -25,7 +25,7 @@ import qualified Options.Applicative        as Opt
 
 import           ConfigFile
 import           String
-import           System.Directory           as IO
+import qualified System.Directory           as IO
 import           System.Directory           (createDirectoryIfMissing,
                                              getCurrentDirectory)
 import           System.Posix.Process       (getProcessID)
@@ -122,8 +122,8 @@ aptListFiles AptListCfg{..} =
   (if (releaseCodename == "bookworm") then id
   else replace "bookworm" releaseCodename) <$>
        observedCorrectListForBookworm
-  where
 
+observedCorrectListForBookworm :: [String]
 observedCorrectListForBookworm =
   [ "httpredir.debian.org_debian_dists_bookworm-backports_contrib_binary-amd64_Packages"
   , "httpredir.debian.org_debian_dists_bookworm-backports_contrib_binary-i386_Packages"
@@ -500,7 +500,7 @@ earlyFail :: IO ()
 earlyFail = do
   CUid euid <- liftIO getEffectiveUserID
   when (euid /= 0) $ fail "you are not root"
-  Stdout () <- cmd (Traced []) "which selfstrap"
+  Stdout () <- cmd (Traced []) "command -v selfstrap"
   return ()
 
 ioUnless :: MonadIO m => IO Bool -> m () -> m ()