server: throw 401 exception for accesskey mismatch/notfound fix, #67

hasura · Jul 10, 2018 · d7ae846 · d7ae846
1 parent b0e3cbd
commit d7ae846
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/server/src-lib/Hasura/Server/App.hs b/server/src-lib/Hasura/Server/App.hs
@@ -224,8 +224,7 @@ fetchHeaders req mReqAccessKey authMode =
       when (reqKey /= key) accessKeyAuthErr
       return headers
 
-    accessKeyAuthErr = throw400 AccessDenied $
-          "access keys don't match or not found"
+    accessKeyAuthErr = throw401 "access keys don't match or not found"
 
     headersTxt hdrsRaw =
       flip map hdrsRaw $ \(hdrName, hdrVal) ->