diff --git a/lib/Polysemy/Log/Colog/Atomic.hs b/lib/Polysemy/Log/Colog/Atomic.hs
--- a/lib/Polysemy/Log/Colog/Atomic.hs
+++ b/lib/Polysemy/Log/Colog/Atomic.hs
@@ -13,7 +13,7 @@
 interpretCologAtomic' =
   interpret \case
     Colog.Log msg -> atomicModify' (msg :)
-{-# INLINE interpretCologAtomic' #-}
+{-# inline interpretCologAtomic' #-}
 
 -- |Interpret 'Colog.Log' by prepending each message to a list in an 'AtomicState', then interpret the 'AtomicState' in
 -- a 'TVar'.
@@ -24,4 +24,4 @@
 interpretCologAtomic sem = do
   tv <- newTVarIO []
   runAtomicStateTVar tv (interpretCologAtomic' sem)
-{-# INLINE interpretCologAtomic #-}
+{-# inline interpretCologAtomic #-}
diff --git a/lib/Polysemy/Log/Colog/Colog.hs b/lib/Polysemy/Log/Colog/Colog.hs
--- a/lib/Polysemy/Log/Colog/Colog.hs
+++ b/lib/Polysemy/Log/Colog/Colog.hs
@@ -34,13 +34,13 @@
   Severity.Warn -> Colog.Warning
   Severity.Error -> Colog.Error
   Severity.Crit -> Colog.Error
-{-# INLINE severityToColog #-}
+{-# inline severityToColog #-}
 
 -- |Convert a default log message into the /co-log/-native 'Colog.Message'.
 toColog :: LogEntry LogMessage -> Colog.Message
 toColog (LogEntry LogMessage {..} _ source) =
   Colog.Msg (severityToColog severity) source message
-{-# INLINE toColog #-}
+{-# inline toColog #-}
 
 -- |Reinterpret 'DataLog' as 'Colog.Log'.
 -- Maintains a context function as state that is applied to each logged message, allowing the context of a block to be
@@ -57,7 +57,7 @@
       liftT (Colog.log (convert (context msg)))
     Local f ma ->
       raise . interpretDataLogCologLocal convert (f . context) =<< runT ma
-{-# INLINE interpretDataLogCologLocal #-}
+{-# inline interpretDataLogCologLocal #-}
 
 -- |Reinterpret 'DataLog' as 'Colog.Log'.
 interpretDataLogColog ::
@@ -66,7 +66,7 @@
   InterpreterFor (DataLog a) r
 interpretDataLogColog =
   interpretDataLogCologLocal id id
-{-# INLINE interpretDataLogColog #-}
+{-# inline interpretDataLogColog #-}
 
 -- |Reinterpret 'DataLog', specialized to the default message, as 'Colog.Log'.
 interpretDataLogNative ::
@@ -74,7 +74,7 @@
   InterpreterFor (DataLog (LogEntry LogMessage)) r
 interpretDataLogNative =
   interpretDataLogCologLocal toColog id
-{-# INLINE interpretDataLogNative #-}
+{-# inline interpretDataLogNative #-}
 
 -- |Reinterpret 'Log' as 'Colog.Log', using the /polysemy-log/ default message.
 --
@@ -87,7 +87,7 @@
   interpretDataLogColog @(LogEntry LogMessage) .
   interpretLogDataLog .
   raiseUnder
-{-# INLINE interpretLogColog #-}
+{-# inline interpretLogColog #-}
 
 -- |Reinterpret 'Log' as 'Colog.Log', also interpreting 'GhcTime'.
 interpretLogColog' ::
@@ -95,7 +95,7 @@
   InterpretersFor [Log, GhcTime] r
 interpretLogColog' =
   interpretTimeGhc . interpretLogColog
-{-# INLINE interpretLogColog' #-}
+{-# inline interpretLogColog' #-}
 
 -- |Interpret 'Colog.Log' by printing to stdout, using the provided message formatter.
 interpretCologStdoutFormat ::
@@ -106,7 +106,7 @@
   InterpreterFor (Colog.Log msg) r
 interpretCologStdoutFormat format =
   runLogAction @m (contramap format Colog.logTextStdout)
-{-# INLINE interpretCologStdoutFormat #-}
+{-# inline interpretCologStdoutFormat #-}
 
 -- |Interpret 'Colog.Log' with the default message by printing to stdout, using the default message formatter.
 interpretCologStdout ::
@@ -116,7 +116,7 @@
   InterpreterFor (Colog.Log (LogEntry LogMessage)) r
 interpretCologStdout =
   interpretCologStdoutFormat @_ @m formatLogEntry
-{-# INLINE interpretCologStdout #-}
+{-# inline interpretCologStdout #-}
 
 -- |Interpret 'Log' fully in terms of 'Colog.Log', using the default message and stdout.
 interpretLogStdout ::
@@ -128,7 +128,7 @@
   interpretDataLogColog @(LogEntry LogMessage) .
   interpretLogDataLog .
   raiseUnder3
-{-# INLINE interpretLogStdout #-}
+{-# inline interpretLogStdout #-}
 
 -- |Like 'interpretLogStdout', but process messages concurrently.
 interpretLogStdoutConc ::
@@ -141,7 +141,7 @@
   interceptDataLogConc @(LogEntry LogMessage) 64 .
   interpretLogDataLog .
   raiseUnder3
-{-# INLINE interpretLogStdoutConc #-}
+{-# inline interpretLogStdoutConc #-}
 
 -- |Interpret 'Colog.Log' with the /co-log/ message protocol by printing to stdout, using /co-log/'s rich message
 -- formatter.
@@ -152,7 +152,7 @@
   InterpreterFor (Colog.Log Colog.Message) r
 interpretCologStdoutNative =
   runLogAction @m Colog.richMessageAction
-{-# INLINE interpretCologStdoutNative #-}
+{-# inline interpretCologStdoutNative #-}
 
 -- |Reinterpret 'Log' as 'Colog.Log', using the /co-log/ message protocol.
 interpretLogCologAsNative ::
@@ -162,7 +162,7 @@
   interpretDataLogNative .
   interpretLogDataLog .
   raiseUnder
-{-# INLINE interpretLogCologAsNative #-}
+{-# inline interpretLogCologAsNative #-}
 
 -- |Interpret 'Log' fully in terms of 'Colog.Log', using /co-log/'s message protocol and stdout.
 interpretLogStdoutAsNative ::
@@ -173,7 +173,7 @@
   interpretTimeGhc .
   interpretLogCologAsNative .
   raiseUnder
-{-# INLINE interpretLogStdoutAsNative #-}
+{-# inline interpretLogStdoutAsNative #-}
 
 -- |Interpret 'Log' fully in terms of 'Colog.Log', using /co-log/'s message protocol and stdout.
 interpretLogStdoutAsNativeConc ::
@@ -186,4 +186,4 @@
   interceptDataLogConc @(LogEntry LogMessage) 64 .
   interpretLogDataLog .
   raiseUnder2
-{-# INLINE interpretLogStdoutAsNativeConc #-}
+{-# inline interpretLogStdoutAsNativeConc #-}
diff --git a/lib/Polysemy/Log/Colog/Conc.hs b/lib/Polysemy/Log/Colog/Conc.hs
--- a/lib/Polysemy/Log/Colog/Conc.hs
+++ b/lib/Polysemy/Log/Colog/Conc.hs
@@ -24,7 +24,7 @@
   where
     run worker =
       runLogAction (convertToLogAction @IO worker) sem
-{-# INLINE interpretCologConcNativeWith #-}
+{-# inline interpretCologConcNativeWith #-}
 
 -- |Interpret 'Colog.Log' using /co-log/'s concurrent logger with the default message and formatting.
 interpretCologConcNative ::
@@ -32,4 +32,4 @@
   InterpreterFor (Colog.Log (LogEntry LogMessage)) r
 interpretCologConcNative =
   interpretCologConcNativeWith defCapacity (contramap formatLogEntry Colog.logTextStdout)
-{-# INLINE interpretCologConcNative #-}
+{-# inline interpretCologConcNative #-}
diff --git a/polysemy-log-co.cabal b/polysemy-log-co.cabal
--- a/polysemy-log-co.cabal
+++ b/polysemy-log-co.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           polysemy-log-co
-version:        0.3.0.2
+version:        0.4.0.0
 synopsis:       Colog Adapters for Polysemy-Log
 description:    See <https://hackage.haskell.org/package/polysemy-log-co/docs/Polysemy-Log-Colog.html>
 category:       Logging
@@ -95,7 +95,7 @@
       UndecidableInstances
       UnicodeSyntax
       ViewPatterns
-  ghc-options: -flate-specialise -fspecialise-aggressively -Wall -Wredundant-constraints -Wunused-packages
+  ghc-options: -Wall -Wredundant-constraints -Wunused-packages -Widentities
   build-depends:
       base ==4.*
     , co-log >=0.4.0.1
@@ -179,7 +179,7 @@
       UndecidableInstances
       UnicodeSyntax
       ViewPatterns
-  ghc-options: -flate-specialise -fspecialise-aggressively -Wall -Wredundant-constraints -Wunused-packages -threaded -rtsopts -with-rtsopts=-N
+  ghc-options: -Wall -Wredundant-constraints -Wunused-packages -Widentities -threaded -rtsopts -with-rtsopts=-N
   build-depends:
       base ==4.*
     , co-log