diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,6 @@
+# 0.4.1.3
+- Bump upper bounds on aeson again, more TH fixing
+
 # 0.4.1.2
 - Bump upper bounds on aeson and newest TH
 
diff --git a/aeson-schema.cabal b/aeson-schema.cabal
--- a/aeson-schema.cabal
+++ b/aeson-schema.cabal
@@ -1,5 +1,5 @@
 name:                aeson-schema
-version:             0.4.1.2
+version:             0.4.1.3
 synopsis:            Haskell JSON schema validator and parser generator
 description:         This library provides validation of JSON values against schemata. Given a schema, it can also produce data types corresponding to the schema and a parser.
 homepage:            https://github.com/Fuuzetsu/aeson-schema
@@ -35,7 +35,7 @@
                        Data.Aeson.TH.Lift
   extensions:          OverloadedStrings
   build-depends:       base > 4 && < 5,
-                       aeson >= 0.11.0.0 && < 1.3,
+                       aeson >= 0.11.0.0 && < 1.4,
                        vector >= 0.10 && < 0.13,
                        text >= 1.2 && < 1.3,
                        regex-pcre >= 0.94.4 && < 0.95,
@@ -46,7 +46,7 @@
                        th-lift >= 0.7 && < 0.8,
                        mtl >= 2 && < 3,
                        transformers >= 0.3.0.0 && < 0.6,
-                       QuickCheck >= 2.4.2 && < 2.11,
+                       QuickCheck >= 2.4.2 && < 2.12,
                        syb >= 0.4.4 && < 0.8,
                        bytestring >= 0.9.2.1 && < 0.11,
                        scientific >= 0.3.3.7 && < 0.4,
diff --git a/src/Data/Aeson/Schema/CodeGen.hs b/src/Data/Aeson/Schema/CodeGen.hs
--- a/src/Data/Aeson/Schema/CodeGen.hs
+++ b/src/Data/Aeson/Schema/CodeGen.hs
@@ -481,7 +481,7 @@
       )
 
     arr = mkName "arr"
-    code parser = lambdaPattern (conP ''Array [varP arr])
+    code parser = lambdaPattern (conP 'Array [varP arr])
                                 (doE $ checkers ++ parser)
                                 [| fail "not an array" |]
     checkMinItems m = assertStmt [| V.length $(varE arr) >= m |] $ "array must have at least " ++ show m ++ " items"