From 65baf35d0c6f71c33b3d4ef296ebc505861f89b5 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 20 Nov 2014 17:11:41 +0200
Subject: [PATCH] Make EnvUsage more extensible

---
 yesod/Yesod/Default/Config2.hs | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/yesod/Yesod/Default/Config2.hs b/yesod/Yesod/Default/Config2.hs
index 3feb3c9b..dfe40757 100644
--- a/yesod/Yesod/Default/Config2.hs
+++ b/yesod/Yesod/Default/Config2.hs
@@ -12,7 +12,12 @@ module Yesod.Default.Config2
     , getDevSettings
     , develMainHelper
     , makeYesodLogger
-    , EnvUsage (..)
+    , EnvUsage
+    , ignoreEnv
+    , useEnv
+    , requireEnv
+    , useCustomEnv
+    , requireCustomEnv
     ) where
 
 import Data.Monoid
@@ -87,6 +92,15 @@ data EnvUsage = IgnoreEnv
               | UseCustomEnv (H.HashMap Text Text)
               | RequireCustomEnv (H.HashMap Text Text)
 
+ignoreEnv, useEnv, requireEnv :: EnvUsage
+ignoreEnv = IgnoreEnv
+useEnv = UseEnv
+requireEnv = RequireEnv
+
+useCustomEnv, requireCustomEnv :: H.HashMap Text Text -> EnvUsage
+useCustomEnv = UseCustomEnv
+requireCustomEnv = RequireCustomEnv
+
 -- | Load the settings from the following three sources:
 --
 -- * Run time config files