use DataLength

diff --git a/P2P/Http.hs b/P2P/Http.hs
index 02a5600a8e70b8c3b7ab7fcf9477e68ee9b173f0..50dd4e7712f3e64a827c9a3098c376a782ba4d0c 100644 (file)
--- a/P2P/Http.hs
+++ b/P2P/Http.hs
@@ -192,7 +192,7 @@ serveGet st su apiver (B64Key k) cu bypass baf startat sec auth = do
        szv <- liftIO $ newMVar 0
        let streamer = S.SourceT $ \s -> s =<< return 
                (stream (bv, szv, len, endv, validityv, finalv))
-       return $ addHeader len streamer
+       return $ addHeader (DataLength len) streamer
   where
        stream (bv, szv, len, endv, validityv, finalv) =
                S.fromActionStep B.null $
@@ -271,7 +271,7 @@ clientGet clientenv (ProtocolVersion ver) k su cu bypass af o auth =
                        let dl = case lookupResponseHeader @DataLengthHeader' respheaders of
                                Header h -> h
                                _ -> error "missing data length header"
-                       liftIO $ print ("datalength", dl :: Integer)
+                       liftIO $ print ("datalength", dl :: DataLength)
                        b <- S.unSourceT (getResponse respheaders) gatherByteString
                        liftIO $ print "got it all, writing to file 'got'"
                        L.writeFile "got" b
@@ -520,7 +520,7 @@ servePut
        -> (PutResultPlus -> t)
        -> B64UUID ServerSide
        -> v
-       -> Maybe Integer
+       -> Maybe DataLength
        -> B64Key
        -> B64UUID ClientSide
        -> [B64UUID Bypass]
@@ -529,11 +529,11 @@ servePut
        -> DataLength
        -> S.SourceT IO B.ByteString
        -> Handler t
-servePut = undefined -- TODO
+servePut = undefined -- st resultmangle su apiver datalength k cu bypass af offset 
 
 clientPut
        :: ProtocolVersion
-       -> Maybe Integer
+       -> Maybe DataLength
        -> B64Key
        -> B64UUID ClientSide
        -> B64UUID ServerSide
@@ -745,7 +745,7 @@ type AssociatedFileParam = QueryParam "associatedfile" B64FilePath
        
 type OffsetParam = QueryParam "offset" Offset
 
-type DataLengthHeader = Header DataLengthHeader' Integer
+type DataLengthHeader = Header DataLengthHeader' DataLength
 
 type DataLengthHeader' = "X-git-annex-data-length"