some work on the sha1 backend; still incomplete

1 files changed, 2 insertions, 2 deletions

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. -}