remove some monkey faces

This commit is contained in:
Joey Hess 2014-02-01 17:14:38 -04:00
parent c87ecaa543
commit a542781f6a
3 changed files with 7 additions and 7 deletions

View file

@ -158,7 +158,7 @@ commitStaged commitmessage = go =<< inRepo Git.Branch.currentUnsafe
go (Just branch) = do
parent <- inRepo $ Git.Ref.sha branch
void $ inRepo $ Git.Branch.commit False commitmessage branch
(maybe [] (:[]) parent)
(maybeToList parent)
return True
mergeLocal :: Maybe Git.Ref -> CommandStart