fix build on windows

diff --git a/Utility/UserInfo.hs b/Utility/UserInfo.hs
index b2c4ddaaf82eae240f39bb83fb8c60b6d37215fe..827229d22cf4bae7430701443921fb3f1fa39352 100644 (file)
--- 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)