summaryrefslogtreecommitdiff
path: root/Run/Que.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Run/Que.hs')
-rw-r--r--Run/Que.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Run/Que.hs b/Run/Que.hs
index 4855c2d..8171fbe 100644
--- a/Run/Que.hs
+++ b/Run/Que.hs
@@ -88,10 +88,10 @@ routes = do
-- | Put a value on a que. Returns immediately.
Scotty.post (Scotty.regex quepath) <| do
(ns, qp) <- extract
- qdata <- Scotty.body
-- ensure namespace exists
app . modify <| upsertNamespace ns
- q <- app <| que ns qp
+ q <- app <| que ns qp
+ qdata <- Scotty.body
liftIO <| pushQue (BSL.toStrict qdata) q
return ()