From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 30 Dec 2016 15:37:24 +0000 (-0400)
Subject: fix windows build
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~278^2~10
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=dfbd303d662291479f0d4a5f97f5c649711f59fe;p=git-annex.git

fix windows build
---

diff --git a/Utility/Su.hs b/Utility/Su.hs
index ace8cbf3e3..464c8aaf51 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 = SuCommand NoPromptPassword cmd ps
+mkSuCommand cmd ps = return $ SuCommand NoPromptPassword cmd ps
 #endif