File tree Expand file tree Collapse file tree 1 file changed +4
-6
lines changed
src/Distribution/Server/Framework Expand file tree Collapse file tree 1 file changed +4
-6
lines changed Original file line number Diff line number Diff line change @@ -113,19 +113,17 @@ checkAuthenticated realm users ServerEnv { serverRequiredBaseHostHeader } = do
113
113
{ actualHost= Just hostHeaderValue
114
114
, oughtToBeHost= serverRequiredBaseHostHeader
115
115
}
116
- else pure $ Left BadHost
117
- { actualHost= Nothing
118
- , oughtToBeHost= serverRequiredBaseHostHeader
119
- }
120
- Nothing -> do
116
+ else goCheck
117
+ Nothing -> goCheck
118
+ where
119
+ goCheck = do
121
120
req <- askRq
122
121
return $ case getHeaderAuth req of
123
122
Just (DigestAuth , ahdr) -> checkDigestAuth users ahdr req
124
123
Just _ | plainHttp req -> Left InsecureAuthError
125
124
Just (BasicAuth , ahdr) -> checkBasicAuth users realm ahdr
126
125
Just (AuthToken , ahdr) -> checkTokenAuth users ahdr
127
126
Nothing -> Left NoAuthError
128
- where
129
127
getHeaderAuth :: Request -> Maybe (AuthType , BS. ByteString )
130
128
getHeaderAuth req =
131
129
case getHeader " authorization" req of
You can’t perform that action at this time.
0 commit comments