- do authM <- getAuthorization
- case authM of
- Just (BasicAuthCredential userID password)
- -> do valid <- isValidPair (envAuthDB env) userID password
- if valid then
- setStatus NoContent
- else
- setStatus Forbidden
- _ -> setStatus Forbidden
+ do userID <- getUserID env
+ case userID of
+ Just _ -> setStatus NoContent
+ Nothing -> setStatus Forbidden