diff --git a/backend/src/Datarekisteri/Backend.hs b/backend/src/Datarekisteri/Backend.hs index 75e6033..fb61b33 100644 --- a/backend/src/Datarekisteri/Backend.hs +++ b/backend/src/Datarekisteri/Backend.hs @@ -154,7 +154,7 @@ verifyBasic BasicAuth {..} = do correctPassword <- checkPassword password <$> lift dbUserPasswordHash if correctPassword then pure user - else do setHeader "WWW-Authenticate" "Basic realm=\"GraphQL API\", Bearer realm\"GraphQL API\"" + else do setHeader "WWW-Authenticate" "Basic realm=\"GraphQL API\", Bearer realm=\"GraphQL API\"" raiseStatus status401 "Wrong password or email" newtype APIM a = APIM (ReaderT RequestState IO a)