| By | fr33domlover |
| At | 2016-05-24 |
| Title | Tree views also return entry names |
| Description |
Edit file src/Data/Git/Harder.hs 0 → 0
- 212 viewTree :: Git -> Tree -> IO [(ModePerm, EntName, Bool)]
+ 212 viewTree :: Git -> Tree -> IO [(ModePerm, ObjId, EntName, Bool)]
- 217 Just TypeTree -> return (perm, name, True)
- 218 Just TypeBlob -> return (perm, name, False)
+ 217 Just TypeTree -> return (perm, ObjId ref, name, True)
+ 218 Just TypeBlob -> return (perm, ObjId ref, name, False)
- 225 resolveTreePath :: Git -> Tree -> EntPath -> IO (Maybe ObjId)
+ 225 resolveTreePath :: Git -> Tree -> EntPath -> IO (Maybe (EntName, ObjId))
- 229 go ref [] = return $ Just $ ObjId ref
- 230 go ref (q:qs) = do
+ 229 go ref name [] = return $ Just $ (name, ObjId ref)
+ 230 go ref _ (q:qs) = do
- 234 Just (_, _, r) -> go r qs
+ 234 Just (_, _, r) -> go r q qs
- 237 Just (_, _, ref) -> go ref ps
+ 237 Just (_, _, ref) -> go ref p ps
… … … … Edit file src/Data/Git/Harder/Pack.hs 0 → 0
- 33 --import Data.Git.Ref (Ref, toBinary)
- 34 --import Data.Git.Revision (Revision (..))
… … … …