2debd2b · typeable/control-logger

git.iko.soy/typeable/control-logger

on master help sign in

Fix builds on old GHCs.

2debd2bmniip1 year ago

src/Control/Logger.hs+2−5

compare with master

unifiedsplit

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

44import Control.Lens hiding (censoring)

45import Control.Logger.Internal

46import Control.Logger.Orphans ()

47+import Control.Monad

47import Control.Monad.Catch

48import Control.Monad.Catch

49+import Control.Monad.IO.Class

48import qualified Data.List as List

50import qualified Data.List as List

49import Data.Monoid

51import Data.Monoid

50import Data.Text (Text)

52import Data.Text (Text)

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

54import Katip (ToObject (..))

56import Katip (ToObject (..))

55import System.Log.FastLogger

57import System.Log.FastLogger

56import Text.Shakespeare.Text (st)

58import 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

63logError

60logError

64 :: (LoggingMonad r m)

61 :: (LoggingMonad r m)

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

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

17import Control.Has

18import Control.Lens

19+import Control.Monad.IO.Class

19import Control.DeepSeq

20import Control.DeepSeq

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

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

21import Data.Text (Text)

22import Data.Text (Text)

22import Data.Monoid

23import Data.Monoid

23import GHC.Stack

24import GHC.Stack

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

25−import Control.Monad.IO.Class

26−#endif

29data LogSeverity

27data LogSeverity