From 7bd7cca39932858a08dd50a15e5a6f2dc9daa6c0 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 27 Oct 2010 15:00:41 -0400 Subject: some work on the sha1 backend; still incomplete --- GitRepo.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'GitRepo.hs') diff --git a/GitRepo.hs b/GitRepo.hs index ee1bdba34..941810235 100644 --- a/GitRepo.hs +++ b/GitRepo.hs @@ -195,8 +195,8 @@ run repo params = assertLocal repo $ do pipeRead :: Repo -> [String] -> IO String pipeRead repo params = assertLocal repo $ do pOpen ReadFromPipe "git" (gitCommandLine repo params) $ \h -> do - ret <- hGetContentsStrict h - return ret + ret <- hGetContentsStrict h + return ret {- Passed a location, recursively scans for all files that - are checked into git at that location. -} -- cgit v1.2.3