From 4c0f523457c2d5c584f1209bf2907e33bc090888 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 25 Apr 2012 17:32:20 +0300
Subject: [PATCH] APPROOT environment variable

---
 yesod-default/Yesod/Default/Config.hs | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/yesod-default/Yesod/Default/Config.hs b/yesod-default/Yesod/Default/Config.hs
index dfc10a68..62220645 100644
--- a/yesod-default/Yesod/Default/Config.hs
+++ b/yesod-default/Yesod/Default/Config.hs
@@ -85,9 +85,15 @@ fromArgs getExtra = do
                 }
     config <- loadConfig cs
 
+    env' <- getEnvironment
+    let config' =
+            case lookup "APPROOT" env' of
+                Nothing -> config
+                Just ar -> config { appRoot = T.pack ar }
+
     return $ if port args /= 0
-                then config { appPort = port args }
-                else config
+                then config' { appPort = port args }
+                else config'
 
 -- | Load your development config (when using @'DefaultEnv'@)
 loadDevelopmentConfig :: IO (AppConfig DefaultEnv ())