fix header-auth name
This commit is contained in:
parent
c7a7ac41f1
commit
aa740eef73
1 changed files with 2 additions and 2 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue