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 | 94554782894ec6c26da3b46312d5d1d16d596458 (patch) | |
tree | 78746106bfb153945ccbfd2bbae536081c005e91 /Git/HashObject.hs | |
parent | 55bd61d8c42aaf36a3c57f8444c493f6b045f4cd (diff) |
finished where indentation changes
Diffstat (limited to 'Git/HashObject.hs')
-rw-r--r-- | Git/HashObject.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Git/HashObject.hs b/Git/HashObject.hs index e048ce8e5..b4a32ef1c 100644 --- a/Git/HashObject.hs +++ b/Git/HashObject.hs @@ -29,17 +29,17 @@ hashObjectStop = CoProcess.stop {- Injects a file into git, returning the Sha of the object. -} hashFile :: HashObjectHandle -> FilePath -> IO Sha hashFile h file = CoProcess.query h send receive - where - send to = do - fileEncoding to - hPutStrLn to file - receive from = getSha "hash-object" $ hGetLine from + where + send to = do + fileEncoding to + hPutStrLn to file + receive from = getSha "hash-object" $ hGetLine from {- Injects some content into git, returning its Sha. -} hashObject :: ObjectType -> String -> Repo -> IO Sha hashObject objtype content repo = getSha subcmd $ do s <- pipeWriteRead (map Param params) content repo return s - where - subcmd = "hash-object" - params = [subcmd, "-t", show objtype, "-w", "--stdin"] + where + subcmd = "hash-object" + params = [subcmd, "-t", show objtype, "-w", "--stdin"] |