summaryrefslogtreecommitdiff
path: root/Run/Que/Server.hs
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2020-04-01 22:50:46 -0700
committerBen Sima <ben@bsima.me>2020-04-01 22:51:32 -0700
commit1877ee48948e5952a694cfc666ff65a986211c46 (patch)
tree365b3346b9e0f8736ebbaeb161bdc76025f952a0 /Run/Que/Server.hs
parenta387ebed24a38d2bbbea4a9948440c3ac2dda18a (diff)
Add _ to guardNs whitelist
If we've gotten past the first auth check then we are already "authenticated", or whatever.
Diffstat (limited to 'Run/Que/Server.hs')
-rw-r--r--Run/Que/Server.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Run/Que/Server.hs b/Run/Que/Server.hs
index 38c6bdc..69af529 100644
--- a/Run/Que/Server.hs
+++ b/Run/Que/Server.hs
@@ -114,7 +114,7 @@ routes = do
(_, _, Just ("localhost:3000")) -> Scotty.status Http.ok200
_ -> Scotty.status Http.methodNotAllowed405
>> Scotty.text "not allowed: _ is a reserved namespace"
- guardNs ns ["pub"]
+ guardNs ns ["pub", "_"]
-- passed all auth checks
app . modify <| upsertNamespace ns
q <- app <| que ns qp