-- | The default configuration, with credentials loaded from environment variable or configuration file
-- (see 'loadCredentialsDefault').
baseConfiguration :: MonadIO io => io Configuration
baseConfiguration = liftIO $ do
  Just cr <- loadCredentialsDefault
  return Configuration { timeInfo    = Timestamp,
                         credentials = cr,
                         logger      = defaultLog Warning }

-- TODO: better error handling when credentials cannot be loaded

-- | Debug configuration, which logs much more verbosely.
baseConfiguration :: MonadIO io => io Configuration
baseConfiguration = liftIO $ do
  Just cr <- loadCredentialsDefault
  return Configuration { timeInfo    = Timestamp,
                         credentials = cr,
                         logger      = defaultLog Warning }

-- TODO: better error handling when credentials cannot be loaded

-- | Debug configuration, which logs much more verbosely.
baseConfiguration = liftIO $ do
  Just cr <- loadCredentialsDefault
  return Configuration { timeInfo    = Timestamp,
                         credentials = cr,
                         logger      = defaultLog Warning }

-- TODO: better error handling when credentials cannot be loaded

-- | Debug configuration, which logs much more verbosely.