mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

use FileMode

Browse source
This commit is contained in:
Joey Hess 2011-09-28 14:14:52 -04:00
parent 4afdd34e89
commit a3cb5c47e5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Git/LsTree.hs
View file

@ -12,6 +12,7 @@ module Git.LsTree (
import Numeric import Numeric
import Control.Applicative import Control.Applicative
import Data.Char import Data.Char
import System.Posix.Types
import Git import Git
import Utility.SafeCommand import Utility.SafeCommand
@ -19,7 +20,7 @@ import Utility.SafeCommand
type Treeish = String type Treeish = String
data TreeItem = TreeItem data TreeItem = TreeItem
{ mode :: Int { mode :: FileMode
, objtype :: String , objtype :: String
, sha :: String , sha :: String
, file :: FilePath , file :: FilePath