Workaround for missing HOME variable

This commit is contained in:
Michael Snoyman 2015-03-26 17:43:21 +02:00
parent a3d679f2a3
commit d69497ebf9

View File

@ -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