From d0a2c6c11fed198e54c98a9ed386f459b38bdb44 Mon Sep 17 00:00:00 2001
From: Gordon GECOS <u@adam>
Date: Wed, 22 Nov 2023 17:43:44 -0500
Subject: non-effectful cleanups

---
 fsmgr.hs | 6 +++---
 1 file 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 ()
-- 
cgit v1.2.3