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 | 7a36d31012614778fb2337158dba11068099a3e1 (patch) | |
| tree | b617674cb11e4f00fb9e5613e57554568ed32319 /Types/FileMatcher.hs | |
| parent | 015a3f606100d350c052ab9e14b5cbd55854190d (diff) | |
fix build on old ghc
Diffstat (limited to 'Types/FileMatcher.hs')
| -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 43f05efb6a..be7ac97bd1 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)) |