canteven-log 2.0.0.1 → 2.0.1.0

raw patch · 2 files changed

+5/−5 lines, 2 filesnew-uploader

Files

• canteven-log.cabal +1/−1
• src/Canteven/Log/MonadLog.hs +4/−4

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                canteven-log-version:             2.0.0.1+version:             2.0.1.0 synopsis:            A canteven way of setting up logging for your program. description:     A library that uses <https://hackage.haskell.org/package/canteven-config canteven-config>

@@ -5,7 +5,7 @@     getCantevenOutput,      {- Reexports -}-    LoggingConfig(level, logfile, loggers),+    LoggingConfig(LoggingConfig, level, logfile, loggers),     LoggerDetails(loggerName, loggerPackage, loggerModule, loggerLevel)     ) where @@ -84,9 +84,9 @@     matches (Just s1) s2 = s1 == s2     -- Not real glob matching.     matchesGlob Nothing _ = True-    matchesGlob (Just pattern) candidate-        | "*" `isSuffixOf` pattern = dropWhileEnd (=='*') pattern `isPrefixOf` candidate-        | otherwise = pattern == candidate+    matchesGlob (Just p) candidate+        | "*" `isSuffixOf` p = dropWhileEnd (=='*') p `isPrefixOf` candidate+        | otherwise = p == candidate     runFilters loc src level =         -- default to the defaultLP         fromMaybe (level >= defaultLP) $