module Dodge.Config.Load (
    loadDodgeConfig,
) where

import Data.Aeson
import Dodge.Data.Config
import System.Directory

loadDodgeConfig :: IO Configuration
loadDodgeConfig = do
    fExists <- doesFileExist "data/dodge.config.json"
    if fExists
        then do
            mayConfig <- decodeFileStrict "data/dodge.config.json"
            case mayConfig of
                Just config -> return config
                Nothing -> do
                    putStrLn "invalid data/dodge.config.json, loading defaults"
                    return defaultConfig
        else do
            putStrLn "No data/data/dodge.config.json found, loading defaults"
            return defaultConfig