diff options
| -rw-r--r-- | Utility/Su.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Su.hs b/Utility/Su.hs index 464c8aaf5..f1afd5414 100644 --- a/Utility/Su.hs +++ b/Utility/Su.hs @@ -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 |