2debd2b · typeable/control-logger

git.iko.soy/typeable/control-logger

Fix builds on old GHCs.

Not sure who thought the imports are specific to mtl >=2.3

commit2debd2bbb4b3edfc8a9c5df3487d4c6e24aebc9b authormniip <mniip@mniip.com> dateWed 8 Oct 2025, 12:40 (1 year ago) parentb4dc492

2 files changed+3−8

unifiedsplit

src/Control/Logger.hs+2−5

@@ -44,7 +44,9 @@ import Control.Has

4444import Control.Lens hiding (censoring)

4545import Control.Logger.Internal

4646import Control.Logger.Orphans ()

47+import Control.Monad

4748import Control.Monad.Catch

49+import Control.Monad.IO.Class

4850import qualified Data.List as List

4951import Data.Monoid

5052import Data.Text (Text)

@@ -54,11 +56,6 @@ import GHC.Stack

5456import Katip (ToObject (..))

5557import System.Log.FastLogger

5658import Text.Shakespeare.Text (st)

57−-- import Control.Monad.RWS (censor)

58−#if MIN_VERSION_mtl(2,3,0)

59−import Control.Monad

60−import Control.Monad.IO.Class

61−#endif

6259

6360logError

6461 :: (LoggingMonad r m)

src/Control/Logger/Internal.hs+1−3

@@ -16,14 +16,12 @@ module Control.Logger.Internal

1616

1717import Control.Has

1818import Control.Lens

19+import Control.Monad.IO.Class

1920import Control.DeepSeq

2021import Data.Aeson (ToJSON, FromJSON, Object, Value(..))

2122import Data.Text (Text)

2223import Data.Monoid

2324import GHC.Stack

24−#if MIN_VERSION_mtl(2,3,0)

25−import Control.Monad.IO.Class

26−#endif

2725

2826

2927data LogSeverity