diff --git a/lib/Polysemy/Log/Di/Atomic.hs b/lib/Polysemy/Log/Di/Atomic.hs
--- a/lib/Polysemy/Log/Di/Atomic.hs
+++ b/lib/Polysemy/Log/Di/Atomic.hs
@@ -17,7 +17,7 @@
     Di.Flush -> pureT ()
     Di.Local _ ma -> runTSimple ma
     Di.Fetch -> pureT Nothing
-{-# INLINE interpretDiAtomic' #-}
+{-# inline interpretDiAtomic' #-}
 
 -- |Interpret 'Di.Di' by prepending each message to a list in an 'AtomicState', then interpret the
 -- 'AtomicState' in a 'TVar'.
@@ -28,4 +28,4 @@
 interpretDiAtomic sem = do
   tv <- newTVarIO []
   runAtomicStateTVar tv (interpretDiAtomic' sem)
-{-# INLINE interpretDiAtomic #-}
+{-# inline interpretDiAtomic #-}
diff --git a/lib/Polysemy/Log/Di/Di.hs b/lib/Polysemy/Log/Di/Di.hs
--- a/lib/Polysemy/Log/Di/Di.hs
+++ b/lib/Polysemy/Log/Di/Di.hs
@@ -34,7 +34,7 @@
       liftT (Di.log @_ @path (extractLevel msg) (context msg))
     Local f ma ->
       raise . interpretDataLogDiLocal @_ @path extractLevel (f . context) =<< runT ma
-{-# INLINE interpretDataLogDiLocal #-}
+{-# inline interpretDataLogDiLocal #-}
 
 -- |Reinterpret 'DataLog' as 'Di.Di', using the provided function to extract the log level from the message.
 interpretDataLogDi ::
@@ -44,7 +44,7 @@
   InterpreterFor (DataLog msg) r
 interpretDataLogDi extractLevel =
   interpretDataLogDiLocal @_ @path extractLevel id
-{-# INLINE interpretDataLogDi #-}
+{-# inline interpretDataLogDi #-}
 
 -- |Reinterpret 'Log' as 'Di.Di', using the /polysemy-log/ default message.
 --
@@ -58,7 +58,7 @@
   interpretDataLogDi @_ @path (LogMessage.severity . LogEntry.message) .
   interpretLogDataLog .
   raiseUnder
-{-# INLINE interpretLogDi #-}
+{-# inline interpretLogDi #-}
 
 -- |Reinterpret 'Log' as 'Di.Di', also interpreting 'GhcTime'.
 interpretLogDi' ::
@@ -70,7 +70,7 @@
   interpretLogDataLog' .
   raiseUnder .
   raise2Under
-{-# INLINE interpretLogDi' #-}
+{-# inline interpretLogDi' #-}
 
 -- |Reinterpret 'Log' as 'Di.Di' concurrently.
 interpretLogDiConc ::
@@ -82,4 +82,4 @@
   interpretDataLogDi @_ @path (LogMessage.severity . LogEntry.message) .
   interpretLogDataLogConc maxQueued .
   raiseUnder
-{-# INLINE interpretLogDiConc #-}
+{-# inline interpretLogDiConc #-}
diff --git a/polysemy-log-di.cabal b/polysemy-log-di.cabal
--- a/polysemy-log-di.cabal
+++ b/polysemy-log-di.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           polysemy-log-di
-version:        0.3.0.2
+version:        0.4.0.0
 synopsis:       Di Adapters for Polysemy-Log
 description:    See <https://hackage.haskell.org/package/polysemy-log-di/docs/Polysemy-Log-Di.html>
 category:       Logging
@@ -94,7 +94,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.*
     , di-polysemy >=0.2.0.0
@@ -174,7 +174,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.*
     , polysemy >=1.5