mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix build warning

Browse source
This commit is contained in:
Joey Hess 2022-10-27 10:21:24 -04:00
parent 14f7a386f0
commit 9187a37dec
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Utility/Su.hs
View file

@ -58,7 +58,7 @@ describePasswordPrompt' (Just (SuCommand p _ _)) = describePasswordPrompt p
describePasswordPrompt' Nothing = Nothing describePasswordPrompt' Nothing = Nothing
runSuCommand :: (Maybe SuCommand) -> Maybe [(String, String)] -> IO Bool 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 runSuCommand Nothing _ = return False
-- Generates a SuCommand that runs a command as root, fairly portably. -- Generates a SuCommand that runs a command as root, fairly portably.