diff --git a/autoapply.cabal b/autoapply.cabal
--- a/autoapply.cabal
+++ b/autoapply.cabal
@@ -1,13 +1,13 @@
 cabal-version: 1.24
 
--- This file has been generated from package.yaml by hpack version 0.34.4.
+-- This file has been generated from package.yaml by hpack version 0.34.5.
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 8ee53363c7e4d90277a3ca258c64ba2e7a9cb984cd139b5f7cfdd9d0f664bb2a
+-- hash: 1c17698dcf551bc1034b52d24e7dee1e284a0f7ce7e13070fdafc7dec2216162
 
 name:           autoapply
-version:        0.4.1.1
+version:        0.4.1.3
 synopsis:       Template Haskell to automatically pass values to functions
 description:    See readme.md
 category:       Template Haskell
@@ -64,7 +64,7 @@
     , logict
     , mtl
     , template-haskell
-    , th-desugar ==1.12.*
+    , th-desugar >=1.12 && <1.15
     , transformers
     , unification-fd
   default-language: Haskell2010
diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -2,6 +2,12 @@
 
 ## WIP
 
+## [0.4.1.3] - 2022-09-25
+  - Loosen th-desugar upper bound
+
+## [0.4.1.2] - 2021-11-08
+  - Loosen th-desugar upper bound
+
 ## [0.4.1.1] - 2021-10-17
   - Bump th-desugar version
 
diff --git a/default.nix b/default.nix
--- a/default.nix
+++ b/default.nix
@@ -1,5 +1,4 @@
-{ pkgs ? import ./nixpkgs.nix, compiler ? null
-, extraOverrides ? _: _: { }, modifier ? x: x }:
+{ pkgs ? import ./nixpkgs.nix, compiler ? null, extraOverrides ? _: _: { } }:
 
 let
   haskellPackages = if compiler == null then
@@ -12,6 +11,5 @@
   root = pkgs.nix-gitignore.gitignoreSource [ ] ./.;
   overrides = with pkgs.haskell.lib;
     pkgs.lib.composeExtensions
-    (self: _super: { th-desugar = self.th-desugar_1_12; }) extraOverrides;
-  inherit modifier;
+    (self: _super: { th-desugar = self.th-desugar_1_14; }) extraOverrides;
 }
diff --git a/package.yaml b/package.yaml
--- a/package.yaml
+++ b/package.yaml
@@ -1,5 +1,5 @@
 name: autoapply
-version: "0.4.1.1"
+version: "0.4.1.3"
 synopsis: Template Haskell to automatically pass values to functions
 description: See readme.md
 category: Template Haskell
@@ -19,7 +19,7 @@
     - logict
     - mtl
     - template-haskell
-    - th-desugar >= 1.12 && < 1.13
+    - th-desugar >= 1.12 && < 1.15
     - transformers
     - unification-fd