Don't read the body until I need it

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 ()