fix(avs): incomplete config throws error

This commit is contained in:
Steffen Jost 2022-09-02 11:38:03 +02:00
parent 7c86293005
commit 1d3c278682
3 changed files with 6 additions and 3 deletions

1
db.sh
View File

@ -13,4 +13,5 @@ fi
stack build --fast --flag uniworx:-library-only --flag uniworx:dev
export SERVER_SESSION_ACID_FALLBACK=${SERVER_SESSION_ACID_FALLBACK:-true}
export AVSPASS=${AVSPASS:-nopasswordset}
stack exec uniworxdb -- $@

View File

@ -348,9 +348,10 @@ makeFoundation appSettings''@AppSettings{..} = do
appAvsQuery <- case appAvsConf of
Nothing -> do
$logErrorS "avsPrepare" "appAvsConfig is empty, i.e. invalid AVS configuration settings."
return Nothing
-- liftIO exitFailure
-- $logErrorS "avsPrepare" "appAvsConfig is empty, i.e. invalid AVS configuration settings."
-- return Nothing
error "AvsConfig is empty, i.e. invalid AVS configuration settings."
Just avsConf -> do
-- TODO: consider using Servant.Client.Core.BaseUrl.Instances.parseBaseUrl' within Settings already at Startup!
manager <- newManagerSettings $ mkManagerSettings (def { settingDisableCertificateValidation = True }) Nothing

View File

@ -22,6 +22,7 @@ export ALLOW_DEPRECATED=${ALLOW_DEPRECATED:-true}
export ENCRYPT_ERRORS=${ENCRYPT_ERRORS:-false}
export RIBBON=${RIBBON:-${__HOST:-localhost}}
export APPROOT=${APPROOT:-http://localhost:$((${PORT_OFFSET:-0} + 3000))}
export AVSPASS=${AVSPASS:-nopasswordset}
unset HOST
move-back() {