{"body":"    w <- atomically do\n      touched <- readTVar (touchedV agent)\n      case OrderId oid `elem` touched of\n        True -> pure pass\n        False -> do\n          v <- newEmptyTMVar\n          modifyTVar' (watching agent) (MM.insert (OrderId oid) v)\n          pure (atomically (takeTMVar v))","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/VGrDKrIm","modified":1608370402,"id":"VGrDKrIm","size":290,"lines":8,"own_paste":false,"theme":"","date":1608370402}