mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid the functor

Browse source 
fmap = liftM
This commit is contained in:
Joey Hess 2011-08-21 14:59:34 -04:00
parent 06f509854a
commit 4c73d77b42
2 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Annex.hs
View file

@ -33,7 +33,6 @@ import Types.UUID
-- git-annex's monad -- git-annex's monad
newtype Annex a = Annex { runAnnex :: StateT AnnexState IO a } newtype Annex a = Annex { runAnnex :: StateT AnnexState IO a }
deriving ( deriving (
Functor,
Monad, Monad,
MonadIO, MonadIO,
MonadControlIO, MonadControlIO,

2
Branch.hs
View file

@ -321,7 +321,7 @@ getJournalFile file = do
{- List of journal files. -} {- List of journal files. -}
getJournalFiles :: Annex [FilePath] getJournalFiles :: Annex [FilePath]
getJournalFiles = fmap (map fileJournal) getJournalFilesRaw getJournalFiles = liftM (map fileJournal) getJournalFilesRaw
getJournalFilesRaw :: Annex [FilePath] getJournalFilesRaw :: Annex [FilePath]
getJournalFilesRaw = do getJournalFilesRaw = do