cli: Add a fork parameter for upload

Author: erikd-ambiata

mismi-cli/main/s3.hs

@@ -68,7 +68,7 @@ data UnitPrefix =
     deriving (Eq, Show)
 
 data Command =
-    Upload Recursive FilePath Address WriteMode
+    Upload Recursive FilePath Address WriteMode Int
   | Download Recursive Address FilePath
   | Copy Address Address WriteMode
   | Concat [Address] Address WriteMode Int
@@ -126,10 +126,10 @@ run c = do
   let
     e' = configure (over serviceRetry (set retryAttempts 10 . set exponentBase 0.6) s3) e
   orDie O.renderError . O.runAWS e' $ case c of
-    Upload NotRecursive s d m ->
+    Upload NotRecursive s d m _ ->
       uploadWithModeOrFail m s d
-    Upload Recursive s d m ->
-      uploadRecursiveWithModeOrFail m s d
+    Upload Recursive s d m f ->
+      uploadRecursiveWithModeOrFail m s d f
     Download NotRecursive s d ->
       renderExit renderDownloadError . download s . optAppendFileName d $ key s
     Download Recursive s d ->
@@ -301,7 +301,7 @@ commandP' :: Force -> Parser Command
 commandP' f = XOA.subparser $
      command' "upload"
               "Upload a file to s3."
-              (Upload <$> recursive' <*> filepath' <*> address' <*> writeMode' f)
+              (Upload <$> recursive' <*> filepath' <*> address' <*> writeMode' f <*> fork')
   <> command' "download"
               "Download a file from s3."
               (Download <$> recursive' <*> address' <*> filepath')