where
import Network.HTTP.Lucu
-import Rakka.Authorization
import Rakka.Environment
+import Rakka.Resource
resCheckAuth :: Environment -> ResourceDef
, resIsGreedy = False
, resGet
= Just $
- 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
, resHead = Nothing
, resPost = Nothing
, resPut = Nothing