From 8f87a46002d7d44f9e100c60755fc8313baeaf12 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 15 Feb 2016 15:11:06 -0400
Subject: avoid warning on windows build

---
 Utility/UserInfo.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Utility')

diff --git a/Utility/UserInfo.hs b/Utility/UserInfo.hs
index 7e94cafa4..6f0c59d04 100644
--- a/Utility/UserInfo.hs
+++ b/Utility/UserInfo.hs
@@ -58,6 +58,6 @@ myVal envvars extract = go envvars
 #ifndef mingw32_HOST_OS
 	go [] = extract <$> (getUserEntryForID =<< getEffectiveUserID)
 #else
-	go [] = error $ "environment not set: " ++ show envvars
+	go [] = extract <$> error ("environment not set: " ++ show envvars)
 #endif
 	go (v:vs) = maybe (go vs) return =<< getEnv v
-- 
cgit v1.2.3