fix header-auth name

This commit is contained in:
nek0 2019-07-18 16:08:38 +02:00
parent c7a7ac41f1
commit aa740eef73

View file

@ -88,8 +88,8 @@ authHandler conn = mkAuthHandler handler
handler :: Request -> Handler (Maybe Int) handler :: Request -> Handler (Maybe Int)
handler req = do handler req = do
let headers = requestHeaders req let headers = requestHeaders req
res <- case lookup "Authorization" headers of res <- case lookup "Authentication" headers of
Just hh -> do Just hh ->
validateToken conn (fst $ decode hh) validateToken conn (fst $ decode hh)
_ -> _ ->
return Nothing return Nothing