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)