diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-01-26 15:12:16 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-01-26 15:12:16 -0400 |
commit | a4e5f1495457373179049425e2df2023c38896fe (patch) | |
tree | 7a50e823d36c6ce10c44115136c039b6afc428e2 | |
parent | 7100a2b0e55d62c9c04a30e6f3db5ea58df8afd6 (diff) |
fix build on old ghc
-rw-r--r-- | Types/FileMatcher.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |