| By | fr33domlover |
| At | 2016-04-28 |
| Title | Remove packfile code that already moved to hit-harder |
| Description |
Edit file src/Network/Git/Transport/SSH/Fetch/Packfile.hs 0 → 0
- 170 putPackHeader :: Int -> Put
- 171 putPackHeader numOfObjects = do
- 172 putByteString "PACK" -- Signature
- 173 putWord32be 2 -- Version number
- 174 putInt32be numOfObjects -- Number of objects contained in the pack
- 175 … … … … - 292 type ObjIdSet = HashSet ObjId
- 293 - 304 type Pack = ()
- 305 … … … … - 322 -- TODO fix the code to work according to the algo above
- 323 collectObjIds :: [(ObjId, Commit)] -> FetchT m ObjIdSet
- 324 collectObjIds pair = do
- 325 let (commitIds, commits) = unzip pairs
- 326 git <- liftGit ask
- 327 let treeIds = map (commitTreeish git) commits
- 328 resolve tid = do
- 329 mtree <- resolveTreeish git $ unObjId tid
- 330 return $ fromMaybe (error "invalid commit treeish ref") mtree
- 331 visit s oid _ _ _ = S.insert oid s
- 332 collect = traverseTree git visit
- 333 trees <- traverse resolve treeIds
- 334 depIds <- foldlM (flip collect) S.empty trees
+ 312 -- TODO fix the code, wherever it is, to work according to the algo above
… … … …