@@ -9,7 +9,7 @@ import System.Exit (exitFailure)
9main :: IO ()
9main :: IO ()
10main = withManager defaultManagerSettings $ \m -> do
10main = withManager defaultManagerSettings $ \m -> do
11 args <- getArgs
11 args <- getArgs
12− token <- getEnv "STACKAGE_AUTH_TOKEN"
12+ token <- readFile "/auth-token"
13 (filepath, alias) <-
13 (filepath, alias) <-
14 case args of
14 case args of
15 [x, y] -> return (x, y)
15 [x, y] -> return (x, y)