From 54bf1d384582c9c7595a2b26ce82e51514c2ac9b Mon Sep 17 00:00:00 2001
From: Bryan Richter <b@chreekat.net>
Date: Mon, 29 Jun 2015 11:31:52 -0700
Subject: [PATCH] Add support for forward-env in BackgroundConfig

---
 Keter/Types/V10.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Keter/Types/V10.hs b/Keter/Types/V10.hs
index c6905e4..1f2a88f 100644
--- a/Keter/Types/V10.hs
+++ b/Keter/Types/V10.hs
@@ -409,6 +409,7 @@ data BackgroundConfig = BackgroundConfig
     , bgconfigEnvironment         :: !(Map Text Text)
     , bgconfigRestartCount        :: !RestartCount
     , bgconfigRestartDelaySeconds :: !Word
+    , bgconfigForwardEnv          :: !(Set Text)
     }
     deriving Show
 
@@ -426,6 +427,7 @@ instance ParseYamlFile BackgroundConfig where
         <*> o .:? "env" .!= Map.empty
         <*> o .:? "restart-count" .!= UnlimitedRestarts
         <*> o .:? "restart-delay-seconds" .!= 5
+        <*> o .:? "forward-env" .!= Set.empty
 
 instance ToJSON BackgroundConfig where
     toJSON BackgroundConfig {..} = object $ catMaybes
@@ -436,4 +438,5 @@ instance ToJSON BackgroundConfig where
             UnlimitedRestarts -> Nothing
             LimitedRestarts count -> Just $ "restart-count" .= count
         , Just $ "restart-delay-seconds" .= bgconfigRestartDelaySeconds
+        , Just $ "forward-env" .= bgconfigForwardEnv
         ]