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 req = do
let headers = requestHeaders req
res <- case lookup "Authorization" headers of
Just hh -> do
res <- case lookup "Authentication" headers of
Just hh ->
validateToken conn (fst $ decode hh)
_ ->
return Nothing