aluink

gistfile1.hs

------------------------------------------------------------------------------
-- | Handles package uploads
storeUploadedFile :: AppHandler ()
storeUploadedFile = do
  res <- handleFileUploads
           tmpUploadDir 
           defaultUploadPolicy 
           (\_ -> allowWithMaximumSize maxUploadSize) 
           (mapM copyUploadedFile)
  let str = concat $ map (show 
                           . pkgName 
                           . package
                           . packageDescription
                           . pkgDesc
                         )
                     $ catMaybes res
  writeText $ T.pack str