diff options
Diffstat (limited to 'Types')
-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)) |