createUpload :: Action
createUpload = 
  do
    request <- jsonData
    id <- liftIO Store.genId
    let domain = "scrub" -- TODO config asks
    put <- liftIO $ Store.genPut domain request
    let get = mkGet domain id
    let upload = Upload.Upload (token request) Ready (mkActions get put)
    liftIO $ Store.put domain id upload
    json upload
createUpload :: Action
createUpload = 
  do
    request <- jsonData
    id <- liftIO Store.genId
    let domain = "scrub" -- TODO config asks
    put <- liftIO $ Store.genPut domain request
    let get = mkGet domain id
    let upload = Upload.Upload (token request) Ready (mkActions get put)
    liftIO $ Store.put domain id upload
    json upload
createUpload = 
  do
    request <- jsonData
    id <- liftIO Store.genId
    let domain = "scrub" -- TODO config asks
    put <- liftIO $ Store.genPut domain request
    let get = mkGet domain id
    let upload = Upload.Upload (token request) Ready (mkActions get put)
    liftIO $ Store.put domain id upload
    json upload