From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 2 Aug 2023 14:43:20 +0000 (-0400)
Subject: fix build on windows
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~36^2~6
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=9a60f5b65f48a949c3200d65ef0bced77a88d5eb;p=git-annex.git

fix build on windows
---

diff --git a/Utility/UserInfo.hs b/Utility/UserInfo.hs
index b2c4ddaaf8..827229d22c 100644
--- a/Utility/UserInfo.hs
+++ b/Utility/UserInfo.hs
@@ -68,7 +68,7 @@ myVal envvars extract = go envvars
 myVal :: [String] -> IO (Either String String)
 myVal envvars = go envvars
   where
-	go [] = envnotset
+	go [] = return envnotset
 	go (v:vs) = maybe (go vs) (return . Right) =<< getEnv v
 #endif
 	envnotset = Left ("environment not set: " ++ show envvars)