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

more windows build fix

Browse source
This commit is contained in:
Joey Hess 2016-12-30 16:39:51 -04:00
parent 00be07070c
commit 1c744b9512
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
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

@ -98,5 +98,5 @@ mkSuCommand cmd ps = firstM (\(SuCommand _ p _) -> inPath p) =<< selectcmds
shellcmd = unwords $ map shellEscape (cmd:toCommand ps) shellcmd = unwords $ map shellEscape (cmd:toCommand ps)
#else #else
-- For windows, we assume the user has administrator access. -- 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 #endif