From 9187a37decf7f4a7c01a3c8e0aebbe0391616bb4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 27 Oct 2022 10:21:24 -0400 Subject: [PATCH] fix build warning --- Utility/Su.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/Su.hs b/Utility/Su.hs index e956d808b4..d2d970298a 100644 --- a/Utility/Su.hs +++ b/Utility/Su.hs @@ -58,7 +58,7 @@ describePasswordPrompt' (Just (SuCommand p _ _)) = describePasswordPrompt p describePasswordPrompt' Nothing = Nothing runSuCommand :: (Maybe SuCommand) -> Maybe [(String, String)] -> IO Bool -runSuCommand (Just (SuCommand _ cmd ps)) env = boolSystemEnv cmd ps env +runSuCommand (Just (SuCommand _ cmd ps)) environ = boolSystemEnv cmd ps environ runSuCommand Nothing _ = return False -- Generates a SuCommand that runs a command as root, fairly portably.