findUpload :: Action
findUpload = 
  do
    id <- read <$> param "id"
    let domain = "scrub" -- TODO config asks
    upload <- liftIO (Store.get domain id :: IO Upload.Upload)
    json upload
findUpload :: Action
findUpload = 
  do
    id <- read <$> param "id"
    let domain = "scrub" -- TODO config asks
    upload <- liftIO (Store.get domain id :: IO Upload.Upload)
    json upload
findUpload = 
  do
    id <- read <$> param "id"
    let domain = "scrub" -- TODO config asks
    upload <- liftIO (Store.get domain id :: IO Upload.Upload)
    json upload