diff options
author | Joey Hess <joey@kitenet.net> | 2011-08-21 14:59:34 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-08-21 14:59:34 -0400 |
commit | 4c73d77b42e97ad740d5731ad73c40a31c0c84f9 (patch) | |
tree | 9119747ba10f65349434401c4db19e810a4ceebb | |
parent | 06f509854af4e019434ddca73309fcd2a5b47463 (diff) |
avoid the functor
fmap = liftM
-rw-r--r-- | Annex.hs | 1 | ||||
-rw-r--r-- | Branch.hs | 2 |
2 files changed, 1 insertions, 2 deletions
@@ -33,7 +33,6 @@ import Types.UUID -- git-annex's monad newtype Annex a = Annex { runAnnex :: StateT AnnexState IO a } deriving ( - Functor, Monad, MonadIO, MonadControlIO, @@ -321,7 +321,7 @@ getJournalFile file = do {- List of journal files. -} getJournalFiles :: Annex [FilePath] -getJournalFiles = fmap (map fileJournal) getJournalFilesRaw +getJournalFiles = liftM (map fileJournal) getJournalFilesRaw getJournalFilesRaw :: Annex [FilePath] getJournalFilesRaw = do |