diff options
author | Joey Hess <joey@kitenet.net> | 2011-12-13 15:08:44 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-12-13 15:08:44 -0400 |
commit | 25b2cc4148e4cc8f7435cdbcf4b124cc317c1305 (patch) | |
tree | 51f22dc7c65bb38574c4682ec16ca7a552d96cf6 /Git.hs | |
parent | 13fff71f2019ae098c3f8532ac2734cb1ab11498 (diff) |
move commit to Git.Branch
Diffstat (limited to 'Git.hs')
-rw-r--r-- | Git.hs | 18 |
1 files changed, 0 insertions, 18 deletions
@@ -52,7 +52,6 @@ module Git ( useIndex, getSha, shaSize, - commit, assertLocal, prop_idempotent_deencode @@ -354,23 +353,6 @@ getSha subcommand a = do shaSize :: Int shaSize = 40 -{- Commits the index into the specified branch (or other ref), - - with the specified parent refs, and returns the committed sha -} -commit :: String -> Branch -> [Ref] -> Repo -> IO Sha -commit message branch parentrefs repo = do - tree <- getSha "write-tree" $ asString $ - pipeRead [Param "write-tree"] repo - sha <- getSha "commit-tree" $ asString $ - ignorehandle $ pipeWriteRead - (map Param $ ["commit-tree", show tree] ++ ps) - (L.pack message) repo - run "update-ref" [Param $ show branch, Param $ show sha] repo - return sha - where - ignorehandle a = snd <$> a - asString a = L.unpack <$> a - ps = concatMap (\r -> ["-p", show r]) parentrefs - {- Checks if a string from git config is a true value. -} configTrue :: String -> Bool configTrue s = map toLower s == "true" |