From 9a60f5b65f48a949c3200d65ef0bced77a88d5eb Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 2 Aug 2023 10:43:20 -0400 Subject: [PATCH] fix build on windows --- Utility/UserInfo.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.30.2