fix(avs): incomplete config throws error
This commit is contained in:
parent
7c86293005
commit
1d3c278682
1
db.sh
1
db.sh
@ -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 -- $@
|
||||
|
||||
@ -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
|
||||
|
||||
1
start.sh
1
start.sh
@ -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() {
|
||||
|
||||
Loading…
Reference in New Issue
Block a user