diff options
-rw-r--r-- | Run/Que.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 () |