From d69497ebf9859a5f9bd642100408039f945867bc Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 26 Mar 2015 17:43:21 +0200
Subject: [PATCH] Workaround for missing HOME variable

---
 Handler/BuildPlan.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Handler/BuildPlan.hs b/Handler/BuildPlan.hs
index 477300f..647a1ce 100644
--- a/Handler/BuildPlan.hs
+++ b/Handler/BuildPlan.hs
@@ -44,7 +44,8 @@ ltsFP :: HttpM env m
       => Text
       -> m FilePath
 ltsFP ltsVer = do
-    dir <- liftIO $ F.getAppDataDirectory "stackage-bootstrap"
+    --dir <- liftIO $ F.getAppDataDirectory "stackage-bootstrap"
+    let dir = "/tmp/stackage-bootstrap" -- HOME not set on server
     let fp = dir </> fpFromText ("lts-" ++ ltsVer) <.> "yaml"
     exists <- liftIO $ F.isFile fp
     if exists