summaryrefslogtreecommitdiff
path: root/Git/HashObject.hs
blob: 9c99dae2682a4294abfb35399077b9931530a1c6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
{- git hash-object interface
 -
 - Copyright 2011 Joey Hess <joey@kitenet.net>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

module Git.HashObject where

import Common
import Git
import Git.Command

{- Injects a set of files into git, returning the shas of the objects
 - and an IO action to call once the the shas have been used. -}
hashFiles :: [FilePath] -> Repo -> IO ([Sha], IO ())
hashFiles paths repo = do
	(pid, fromh, toh) <- hPipeBoth "git" $ toCommand $ git_hash_object repo
	fileEncoding toh
	_ <- forkProcess (feeder toh)
	hClose toh
	shas <- map Ref . lines <$> hGetContentsStrict fromh
	return (shas, ender fromh pid)
	where
		git_hash_object = gitCommandLine
			[Param "hash-object", Param "-w", Param "--stdin-paths"]
		feeder toh = do
			hPutStr toh $ unlines paths
			hClose toh
			exitSuccess
		ender fromh pid = do
			hClose fromh
			forceSuccess pid