use FileMode

This commit is contained in:
Joey Hess 2011-09-28 14:14:52 -04:00
parent 4afdd34e89
commit a3cb5c47e5

View file

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