split out DiffTreeItem

This makes github-backup happier when it reuses this library.
This commit is contained in:
Joey Hess 2014-12-22 15:32:51 -04:00
parent 8af447c01b
commit db27ad26bf
3 changed files with 26 additions and 11 deletions

View file

@ -16,25 +16,16 @@ module Git.DiffTree (
) where
import Numeric
import System.Posix.Types
import Common
import Git
import Git.Sha
import Git.Command
import Git.FilePath
import Git.DiffTreeItem
import qualified Git.Filename
import qualified Git.Ref
data DiffTreeItem = DiffTreeItem
{ srcmode :: FileMode
, dstmode :: FileMode
, srcsha :: Sha -- nullSha if file was added
, dstsha :: Sha -- nullSha if file was deleted
, status :: String
, file :: TopFilePath
} deriving Show
{- Checks if the DiffTreeItem modifies a file with a given name
- or under a directory by that name. -}
isDiffOf :: DiffTreeItem -> TopFilePath -> Bool