more windows build fix

diff --git a/Utility/Su.hs b/Utility/Su.hs
index 464c8aaf517eeab03f450c90bf7eeaf174f72a6b..f1afd54140695a54d0e830ff4e6f545714c9835b 100644 (file)
--- 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