diff options
Diffstat (limited to 'Run/Que/Server.hs')
| -rw-r--r-- | Run/Que/Server.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Run/Que/Server.hs b/Run/Que/Server.hs index 146a16a..5973ec2 100644 --- a/Run/Que/Server.hs +++ b/Run/Que/Server.hs @@ -131,6 +131,7 @@ routes = do when ("_" == ns && authkey /= adminkey) <| Scotty.status Http.methodNotAllowed405 >> Scotty.text "not allowed: _ is a reserved namespace" + >> Scotty.finish guardNs ns ["pub", "_"] -- passed all auth checks app . modify <| upsertNamespace ns @@ -148,6 +149,7 @@ guardNs ns whitelist = when (not <| ns `elem` whitelist) <| do <| "not allowed: use 'pub' namespace or signup to protect '" <> ns <> "' at https://que.run" + Scotty.finish -- | recover from a scotty-thrown exception. (!:) |