From 1cff4c9f5b5e50b70c474cb15844306b6117e94f Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 11 Jul 2024 12:12:33 -0400
Subject: [PATCH] oops, 2 datalength headers for put route

---
 P2P/Http.hs | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/P2P/Http.hs b/P2P/Http.hs
index 50dd4e7712..757d3150cf 100644
--- a/P2P/Http.hs
+++ b/P2P/Http.hs
@@ -510,7 +510,6 @@ type PutAPI result
 	:> BypassUUIDs
 	:> AssociatedFileParam
 	:> OffsetParam
-	:> Header' '[Required] "X-git-annex-data-length" DataLength
 	:> StreamBody NoFraming OctetStream (SourceIO B.ByteString)
 	:> Post '[JSON] result
 
@@ -526,28 +525,26 @@ servePut
 	-> [B64UUID Bypass]
 	-> Maybe B64FilePath
 	-> Maybe Offset
-	-> DataLength
 	-> S.SourceT IO B.ByteString
 	-> Handler t
 servePut = undefined -- st resultmangle su apiver datalength k cu bypass af offset 
 
 clientPut
 	:: ProtocolVersion
-	-> Maybe DataLength
+	-> DataLength
 	-> B64Key
 	-> B64UUID ClientSide
 	-> B64UUID ServerSide
 	-> [B64UUID Bypass]
 	-> Maybe B64FilePath
 	-> Maybe Offset
-	-> DataLength
 	-> S.SourceT IO B.ByteString
 	-> ClientM PutResultPlus
-clientPut (ProtocolVersion ver) sz k cu su bypass af o l src = case ver of
-	3 -> v3 su V3 sz k cu bypass af o l src
-	2 -> v2 su V2 sz k cu bypass af o l src
-	1 -> plus <$> v1 su V1 sz k cu bypass af o l src
-	0 -> plus <$> v0 su V0 k cu bypass af o l src
+clientPut (ProtocolVersion ver) sz k cu su bypass af o src = case ver of
+	3 -> v3 su V3 (Just sz) k cu bypass af o src
+	2 -> v2 su V2 (Just sz) k cu bypass af o src
+	1 -> plus <$> v1 su V1 (Just sz) k cu bypass af o src
+	0 -> plus <$> v0 su V0 k cu bypass af o src
 	_ -> error "unsupported protocol version"
   where
 	_ :<|> _ :<|> _ :<|> _ :<|>