From a4e5f1495457373179049425e2df2023c38896fe Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 26 Jan 2016 15:12:16 -0400 Subject: fix build on old ghc --- Types/FileMatcher.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Types/FileMatcher.hs b/Types/FileMatcher.hs index 43f05efb6..be7ac97bd 100644 --- a/Types/FileMatcher.hs +++ b/Types/FileMatcher.hs @@ -33,7 +33,7 @@ type OptInfo a = Either (IO a) a -- If the OptInfo is not available, accessing it may result in eg an -- exception being thrown. getInfo :: MonadIO m => OptInfo a -> m a -getInfo (Right i) = pure i +getInfo (Right i) = return i getInfo (Left e) = liftIO e type FileMatcherMap a = M.Map UUID (Utility.Matcher.Matcher (S.Set UUID -> MatchInfo -> a Bool)) -- cgit v1.2.3