| definition: |
getConfig :: [Flag] -> IO Config
getConfig flags = do
iconfig <- updateConfigWithOpts flags defaultConfig
home <- getHomeDirectory
configExistsHere <- doesFileExist (configFileName)
if configExistsHere
then parseConfig (verbosity iconfig > 1) (configFileName)
else do
restrict iconfig 2 $ "INFO: config file not found in current directory,"
++ " searching home directory"
configExistsHome <- doesFileExist $ home </> configFileName
if configExistsHome
then parseConfig (verbosity iconfig > 1) $ home </> configFileName
else do
restrict iconfig 2 $ "INFO: config file not found in home directory,"
++ " using default settings"
return defaultConfig
|
| demand: |
no demanded arguments |
| deterministic: |
deterministic operation |
| documentation: |
-- Loads currystylecheckrc first from local directory, if not existing -- from home and at last creates a default configuration. |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{(_) |-> _}
|
| name: |
getConfig |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
[Types.Flag] -> Prelude.IO Types.Config |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |