From c26c7e8696175863ec62abe271c123edc6254596 Mon Sep 17 00:00:00 2001 From: James Eversole Date: Sat, 17 Feb 2024 09:28:32 -0600 Subject: [PATCH] Allow users to opt out of reading anything from the expected environment file location --- src/Core/Configuration.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/Core/Configuration.hs b/src/Core/Configuration.hs index 49dedf1..a59a9fe 100644 --- a/src/Core/Configuration.hs +++ b/src/Core/Configuration.hs @@ -7,11 +7,14 @@ import Crypto.Saltine.Core.SecretBox (newKey) import Crypto.Saltine.Class (encode) import Configuration.Dotenv import System.Directory (doesFileExist) -import System.Environment (getEnv) +import System.Environment (getEnv, lookupEnv) main :: IO () main = do - loadFile defaultConfig + envFile <- lookupEnv "PURRNOFILE" + case envFile of + Nothing -> loadFile defaultConfig + _ -> putStrLn "Not using dotenv file" keyFileInit :: IO () keyFileInit = do