diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-06-07 15:40:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-06-07 15:40:44 -0400 |
| commit | 20f425be19dafda17c904945dfbf069c496a4ff8 (patch) | |
| tree | f280d77ec5ca6d94488fcb505c7d92f15fed3d3a /Git/UnionMerge.hs | |
| parent | 0a11b35d89104fa0b9653f15963d273a0d3585c3 (diff) | |
make watch use the queue
May not work. Certianly needs to flush the queue from time to time
when only symlink changes are being made.
Diffstat (limited to 'Git/UnionMerge.hs')
| -rw-r--r-- | Git/UnionMerge.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Git/UnionMerge.hs b/Git/UnionMerge.hs index f65b59c53..d38bdfe22 100644 --- a/Git/UnionMerge.hs +++ b/Git/UnionMerge.hs @@ -74,8 +74,9 @@ mergeFile :: String -> FilePath -> CatFileHandle -> Repo -> IO (Maybe String) mergeFile info file h repo = case filter (/= nullSha) [Ref asha, Ref bsha] of [] -> return Nothing (sha:[]) -> use sha - shas -> use =<< either return (hashObject repo BlobObject . unlines) =<< - calcMerge . zip shas <$> mapM getcontents shas + shas -> use + =<< either return (\s -> hashObject BlobObject (unlines s) repo) + =<< calcMerge . zip shas <$> mapM getcontents shas where [_colonmode, _bmode, asha, bsha, _status] = words info getcontents s = map L.unpack . L.lines . |