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

fix build on old ghc

Browse source
This commit is contained in:
Joey Hess 2016-01-26 15:12:16 -04:00
parent 015a3f6061
commit 7a36d31012
Failed to extract signature
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Types/FileMatcher.hs
View file

@ -33,7 +33,7 @@ type OptInfo a = Either (IO a) a
-- If the OptInfo is not available, accessing it may result in eg an -- If the OptInfo is not available, accessing it may result in eg an
-- exception being thrown. -- exception being thrown.
getInfo :: MonadIO m => OptInfo a -> m a getInfo :: MonadIO m => OptInfo a -> m a
getInfo (Right i) = pure i getInfo (Right i) = return i
getInfo (Left e) = liftIO e getInfo (Left e) = liftIO e
type FileMatcherMap a = M.Map UUID (Utility.Matcher.Matcher (S.Set UUID -> MatchInfo -> a Bool)) type FileMatcherMap a = M.Map UUID (Utility.Matcher.Matcher (S.Set UUID -> MatchInfo -> a Bool))