diff --git a/Changelog.md b/Changelog.md
--- a/Changelog.md
+++ b/Changelog.md
@@ -1,3 +1,11 @@
+# 1.2.2
+
+## Other Changes
+
+* Increased upper bound of `free` and `time`.
+
+---
+
 # 1.2.1
 
 ## Other Changes
diff --git a/logging-effect.cabal b/logging-effect.cabal
--- a/logging-effect.cabal
+++ b/logging-effect.cabal
@@ -1,5 +1,5 @@
 name: logging-effect
-version: 1.2.1
+version: 1.2.2
 synopsis: A mtl-style monad transformer for general purpose & compositional logging
 homepage: https://github.com/ocharles/logging-effect
 license: BSD3
@@ -17,10 +17,10 @@
                      , async >=2.0 && <2.2
                      , transformers >=0.4 && <0.6
                      , text >=1.2 && <1.3
-                     , time >=1.5 && <1.9
+                     , time >=1.5 && <1.10
                      , mtl >= 2.2.1 && <2.3
                      , exceptions >= 0.8.0.2 && <0.9
-                     , free >= 4.12.1 && < 4.13
+                     , free >= 4.12.1 && < 5.1
                      , stm >= 2.4.4.1 && < 2.5
                      , stm-delay >= 0.1.1.1 && < 0.2
                      , wl-pprint-text >= 1.1.0.4 && < 1.2
diff --git a/src/Control/Monad/Log.hs b/src/Control/Monad/Log.hs
--- a/src/Control/Monad/Log.hs
+++ b/src/Control/Monad/Log.hs
@@ -16,7 +16,6 @@
 {-# LANGUAGE StandaloneDeriving #-}
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE UndecidableInstances #-}
-{-# LANGUAGE ViewPatterns #-}
 
 module Control.Monad.Log
        ( -- * Introduction
@@ -801,7 +800,7 @@
 main = do
   'withFDHandler' 'defaultBatchingOptions' 'stderr' 0.4 80 $ \\stderrHandler ->
   'withFDHandler' 'defaultBatchingOptions' 'stdout' 0.4 80 $ \\stdoutHandler ->
-  'runLoggingT' m
+  'runLoggingT' testApp
               (\\message ->
                  case 'msgSeverity' message of
                    'Error' -> stderrHandler ('discardSeverity' message)