change env var used to get password to HUP_HACKAGE_PASSWORD

phlummox · Dec 30, 2021 · ff6814f · ff6814f
1 parent 28c473c
commit ff6814f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/app/CmdArgs.hs b/app/CmdArgs.hs
@@ -207,7 +207,7 @@ processArgs = do
      ["Build and/or upload packages or documentation to a hackage server."
      ,"A server url should be of the format PROTOCOL://SERVER[:PORT]/,"
      ,"and defaults to", defaultServer, "if not specified.\n"
-     ,"\nA password can also be given in the PASSWORD environment"
+     ,"\nA password can also be given in the HUP_HACKAGE_PASSWORD environment"
      ,"variable instead of on the command line.\n", "\n'hup --help=all'"
      ,"will give help for all commands." ]
 
diff --git a/app/Main.hs b/app/Main.hs
@@ -116,7 +116,7 @@ getAuth hc = runMaybeT $ do
   u <- MaybeT $ return $ user hc
   case password hc of
     Just p -> MaybeT $ return $ mkAuth u p
-    Nothing -> do x <- get_env "PASSWORD"
+    Nothing -> do x <- get_env "HUP_HACKAGE_PASSWORD"
                   case x of
                     Nothing -> terror "username specified, but no password"
                     Just p  -> MaybeT $ return $ mkAuth u (T.unpack p)