From e471a588e32aba6ab78c0e665ae0ebb9439c0975 Mon Sep 17 00:00:00 2001
From: Aiden McClelland <me@drbonez.dev>
Date: Wed, 7 Sep 2022 16:38:36 -0600
Subject: [PATCH] remove content length limit

---
 src/Cli/Cli.hs    | 4 ++--
 src/Foundation.hs | 2 ++
 2 files changed, 4 insertions(+), 2 deletions(-)

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