Merge branch 'master' into fix/ldap
This commit is contained in:
commit
49227a5714
@ -6,7 +6,7 @@ School json
|
||||
examMinimumRegisterBeforeStart NominalDiffTime Maybe
|
||||
examMinimumRegisterDuration NominalDiffTime Maybe
|
||||
examRequireModeForRegistration Bool default=false
|
||||
examDiscouragedModes ExamModeDNF default='{"dnf-terms": []}'
|
||||
examDiscouragedModes ExamModeDNF default='{"dnf-terms":[]}'
|
||||
examCloseMode ExamCloseMode default='separate'
|
||||
sheetAuthorshipStatementMode SchoolAuthorshipStatementMode default='optional'
|
||||
sheetAuthorshipStatementDefinition AuthorshipStatementDefinitionId Maybe
|
||||
|
||||
@ -26,7 +26,7 @@ let
|
||||
# pandoc # just for manual testing within the pod, remove for production, since we use the library instead!
|
||||
curl wget netcat # just for manual testing within the pod, remove for production!
|
||||
openldap # just for manual testing within the pod, remove for production!
|
||||
build-essentials
|
||||
iana-etc
|
||||
] ++ optionals isDemo [ postgresql_12 memcached uniworx.uniworx.components.exes.uniworxdb ];
|
||||
|
||||
runAsRoot = ''
|
||||
|
||||
2
routes
2
routes
@ -39,7 +39,7 @@
|
||||
/static StaticR EmbeddedStatic appStatic !free
|
||||
/auth AuthR Auth getAuth !free
|
||||
|
||||
/metrics MetricsR GET
|
||||
/metrics MetricsR GET !free -- verify if this can be free
|
||||
|
||||
/err ErrorR GET !free
|
||||
|
||||
|
||||
@ -137,6 +137,7 @@ yesodMiddleware = cacheControlMiddleware . storeBearerMiddleware . csrfMiddlewar
|
||||
case route of
|
||||
MetricsR -> mzero
|
||||
HealthR -> mzero
|
||||
StatusR -> mzero
|
||||
InstanceR -> mzero
|
||||
AdminCrontabR -> mzero
|
||||
_other -> return ()
|
||||
@ -147,7 +148,7 @@ yesodMiddleware = cacheControlMiddleware . storeBearerMiddleware . csrfMiddlewar
|
||||
approotHost <- hoistMaybe $ approotScopeHost rApproot app
|
||||
let doRedirect = do
|
||||
url <- approotRender rApproot route
|
||||
$logDebugS "normalizeApprootMiddleware" url
|
||||
$logDebugS "normalizeApprootMiddleware redirect" url
|
||||
redirect url
|
||||
if | approotHost /= reqHost
|
||||
, rApproot /= ApprootUserGenerated
|
||||
|
||||
Reference in New Issue
Block a user