fix build warning

diff --git a/Utility/Su.hs b/Utility/Su.hs
index e956d808b4cd92b23e3e976a54f95d7594c81f97..d2d970298a9e148cb5cb813f4154e8837aaebe13 100644 (file)
--- 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.