git.iko.soy/elk
on master help sign in
switch to environment variable for secret key
4a1036cEvan Czaplicki
worker/src/Main.hs+7−7
compare with master
unifiedsplit
@@ -81,16 +81,16 @@ serveDepsInfo json =
81
81
82getSecret :: IO String
82getSecret :: IO String
83getSecret =
83getSecret =
84− do args <- Env.getArgs
84+ do maybeValue <- Env.lookupEnv "STRIPE_SECRET"
85− case args of
85+ case maybeValue of
86− [secret] ->
86+ Just secret ->
87 return secret
87 return secret
88
88
89− _ ->
89+ Nothing ->
90 do IO.hPutStrLn IO.stderr
90 do IO.hPutStrLn IO.stderr
91− "Expecting a secret for /donate page:\n\
91+ "Expecting environment variable STRIPE_SECRET to be defined:\n\
92 \\n\
92 \\n\
93− \ ./run-worker sk_test_abcdefghijklmnopqrstuvwxyz\n\
93+ \ STRIPE_SECRET=sk_test_abcdefghijklmnopqrstuvwxyz\n\
94 \\n\
94 \\n\
95− \Needed for handling donations with Stripe."
95+ \It is needed for handling donations with Stripe."
96 Exit.exitFailure
96 Exit.exitFailure