fix windows build

This commit is contained in:
Joey Hess 2016-12-30 11:37:24 -04:00
parent cf6c5d5ca9
commit dfbd303d66
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 = SuCommand NoPromptPassword cmd ps
mkSuCommand cmd ps = return $ SuCommand NoPromptPassword cmd ps
#endif