From 6fd0449c9000c85683e27967d086d50ad6e43509 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 16 Jun 2014 13:08:46 +0300
Subject: [PATCH] Use /auth-token for stackage-upload

---
 stackage-upload.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/stackage-upload.hs b/stackage-upload.hs
index 9e97da32..d842ee29 100644
--- a/stackage-upload.hs
+++ b/stackage-upload.hs
@@ -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)