split out two more Git modules
This commit is contained in:
parent
25b2cc4148
commit
9db8ec210f
8 changed files with 139 additions and 117 deletions
|
@ -17,6 +17,7 @@ import System.Posix.Types
|
|||
import qualified Data.ByteString.Lazy.Char8 as L
|
||||
|
||||
import Git
|
||||
import qualified Git.Filename
|
||||
import Utility.SafeCommand
|
||||
|
||||
data TreeItem = TreeItem
|
||||
|
@ -38,7 +39,7 @@ parseLsTree l = TreeItem
|
|||
{ mode = fst $ head $ readOct $ L.unpack m
|
||||
, typeobj = L.unpack t
|
||||
, sha = L.unpack s
|
||||
, file = decodeGitFile $ L.unpack f
|
||||
, file = Git.Filename.decode $ L.unpack f
|
||||
}
|
||||
where
|
||||
-- l = <mode> SP <type> SP <sha> TAB <file>
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue