diff --git a/src/Cli/Cli.hs b/src/Cli/Cli.hs index 4b2124e..861f835 100644 --- a/src/Cli/Cli.hs +++ b/src/Cli/Cli.hs @@ -432,9 +432,9 @@ parsePkgCat = subparser $ command "categorize" (info cat $ progDesc "Add or remo parseEosPublish :: Parser EosUpload parseEosPublish = subparser $ - command "upload" (info go $ progDesc "Publishes a .s9pk to a remote registry") + command "eos-upload" (info go $ progDesc "Publishes a .img to a remote registry") <> metavar - "upload" + "eos-upload" where go = liftA3 diff --git a/src/Foundation.hs b/src/Foundation.hs index f71be79..868f3b0 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -150,6 +150,7 @@ import Yesod.Persist.Core ( YesodPersistRunner (..), defaultGetDBRunner, ) +import Foundation (Route(EosUploadR)) -- | The foundation datatype for your application. This can be a good place to @@ -287,6 +288,7 @@ instance Yesod RegistryCtx where maximumContentLengthIO :: RegistryCtx -> Maybe (Route RegistryCtx) -> IO (Maybe Word64) maximumContentLengthIO _ (Just PkgUploadR) = pure Nothing + maximumContentLengthIO _ (Just EosUploadR) = pure Nothing maximumContentLengthIO _ _ = pure $ Just 2097152 -- the original default