Use /auth-token for stackage-upload

This commit is contained in:
Michael Snoyman 2014-06-16 13:08:46 +03:00
parent b5a96fa26e
commit 6fd0449c90

View file

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