more windows build fix
This commit is contained in:
parent
00be07070c
commit
1c744b9512
1 changed files with 1 additions and 1 deletions
|
@ -98,5 +98,5 @@ mkSuCommand cmd ps = firstM (\(SuCommand _ p _) -> inPath p) =<< selectcmds
|
|||
shellcmd = unwords $ map shellEscape (cmd:toCommand ps)
|
||||
#else
|
||||
-- For windows, we assume the user has administrator access.
|
||||
mkSuCommand cmd ps = return $ SuCommand NoPromptPassword cmd ps
|
||||
mkSuCommand cmd ps = return $ Just $ SuCommand NoPromptPassword cmd ps
|
||||
#endif
|
||||
|
|
Loading…
Add table
Reference in a new issue