remove unused code

This commit is contained in:
Joey Hess 2020-07-15 11:16:36 -04:00
parent 992fe446ad
commit b88ecb36dd
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -304,7 +304,6 @@ catObjectStreamLsTree l want repo reader = withCatFileStream False repo $
forM_ l $ \ti -> case want ti of forM_ l $ \ti -> case want ti of
Nothing -> return () Nothing -> return ()
Just v -> do Just v -> do
let f = LsTree.file ti
let sha = LsTree.sha ti let sha = LsTree.sha ti
liftIO $ writeChan c (sha, v) liftIO $ writeChan c (sha, v)
S8.hPutStrLn h (fromRef' sha) S8.hPutStrLn h (fromRef' sha)