diff options
author | Joey Hess <joey@kitenet.net> | 2012-12-13 00:24:19 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-12-13 00:24:19 -0400 |
commit | f87a781aa69f6853208778434b1e293d21095f51 (patch) | |
tree | 0bb5cb36ab213deed5ee5ca7eb42574c7a23bd79 /Git/UpdateIndex.hs | |
parent | b77290cecc9929ccd41d6dbceefa6783e71ecd2c (diff) |
finished where indentation changes
Diffstat (limited to 'Git/UpdateIndex.hs')
-rw-r--r-- | Git/UpdateIndex.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Git/UpdateIndex.hs b/Git/UpdateIndex.hs index bc96570dea..aa65b4429d 100644 --- a/Git/UpdateIndex.hs +++ b/Git/UpdateIndex.hs @@ -38,12 +38,12 @@ streamUpdateIndex repo as = pipeWrite params repo $ \h -> do fileEncoding h forM_ as (stream h) hClose h - where - params = map Param ["update-index", "-z", "--index-info"] - stream h a = a (streamer h) - streamer h s = do - hPutStr h s - hPutStr h "\0" + where + params = map Param ["update-index", "-z", "--index-info"] + stream h a = a (streamer h) + streamer h s = do + hPutStr h s + hPutStr h "\0" {- A streamer that adds the current tree for a ref. Useful for eg, copying - and modifying branches. -} @@ -52,8 +52,8 @@ lsTree (Ref x) repo streamer = do (s, cleanup) <- pipeNullSplit params repo mapM_ streamer s void $ cleanup - where - params = map Param ["ls-tree", "-z", "-r", "--full-tree", x] + where + params = map Param ["ls-tree", "-z", "-r", "--full-tree", x] {- Generates a line suitable to be fed into update-index, to add - a given file with a given sha. -} |