haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-09 01:27:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Workaround for missing HOME variable

Browse Source
This commit is contained in:
Michael Snoyman 2015-03-26 17:43:21 +02:00
parent a3d679f2a3
commit d69497ebf9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Handler/BuildPlan.hs
View File

@ -44,7 +44,8 @@ ltsFP :: HttpM env m
=> Text => Text
-> m FilePath -> m FilePath
ltsFP ltsVer = do 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" let fp = dir </> fpFromText ("lts-" ++ ltsVer) <.> "yaml"
exists <- liftIO $ F.isFile fp exists <- liftIO $ F.isFile fp
if exists if exists