more windows build fix

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

View file

@ -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