diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-17 11:57:39 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-17 11:57:39 -0400 |
commit | ae4d20d157eb288046dddf4555bfc9f2660ed675 (patch) | |
tree | f37da43168526ca859bb41c7f3abf646d913e0fc /Core.hs | |
parent | cb1a0a387f93e882ced50709f938bd0a28cd14be (diff) |
bugfix
Diffstat (limited to 'Core.hs')
-rw-r--r-- | Core.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -75,14 +75,14 @@ gitAdd :: FilePath -> Maybe String -> Annex () gitAdd file commitmessage = do nocommit <- Annex.flagIsSet NoCommit if (nocommit) - then Annex.flagChange NeedCommit True + then return () else do g <- Annex.gitRepo liftIO $ Git.run g ["add", file] if (isJust commitmessage) then liftIO $ Git.run g ["commit", "-m", (fromJust commitmessage), file] - else return () + else Annex.flagChange NeedCommit True {- Calculates the relative path to use to link a file to a key. -} calcGitLink :: FilePath -> Key -> Annex FilePath |