app :: App
app = 
  do
    middleware simpleCors
    get "/" $ status status200
    post "/uploads/" createUpload
    get "/uploads/:id" findUpload
app :: App
app = 
  do
    middleware simpleCors
    get "/" $ status status200
    post "/uploads/" createUpload
    get "/uploads/:id" findUpload
app = 
  do
    middleware simpleCors
    get "/" $ status status200
    post "/uploads/" createUpload
    get "/uploads/:id" findUpload