aluink

------------------------------------------------------------------------------
-- | Handles package uploads
storeUploadedFile :: AppHandler ()
storeUploadedFile = do
  res <- handleFileUploads
           tmpUploadDir 
           defaultUploadPolicy 
           (\_ -> allowWithMaximumSize maxUploadSize) 
           (mapM copyUploadedFile)
  let str = concat $ map (show