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