James/purr
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Allow users to opt out of reading anything from the expected environment file location

Browse Source
This commit is contained in:
James Eversole 2024-02-17 09:28:32 -06:00
parent 0e8144b82c
commit c26c7e8696
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Core/Configuration.hs
View File

@ -7,11 +7,14 @@ import Crypto.Saltine.Core.SecretBox (newKey)
import Crypto.Saltine.Class (encode) import Crypto.Saltine.Class (encode)
import Configuration.Dotenv import Configuration.Dotenv
import System.Directory (doesFileExist) import System.Directory (doesFileExist)
import System.Environment (getEnv) import System.Environment (getEnv, lookupEnv)
main :: IO () main :: IO ()
main = do main = do
loadFile defaultConfig envFile <- lookupEnv "PURRNOFILE"
case envFile of
Nothing -> loadFile defaultConfig
_ -> putStrLn "Not using dotenv file"
keyFileInit :: IO () keyFileInit :: IO ()
keyFileInit = do keyFileInit = do