diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,9 @@
+# 0.7.3
+* GHC 7.10 support
+
+# 0.7.2
+* Implement support for free variables by the quasi-quoter
+
 # 0.7.1
 * Relaxed the dependency on "monad-control"
 
diff --git a/hasql.cabal b/hasql.cabal
--- a/hasql.cabal
+++ b/hasql.cabal
@@ -1,7 +1,7 @@
 name:
   hasql
 version:
-  0.7.2
+  0.7.3
 synopsis:
   A minimalistic general high level API for relational databases
 description:
@@ -99,7 +99,7 @@
     resource-pool == 0.2.*,
     hasql-backend == 0.4.*,
     -- 
-    template-haskell >= 2.8 && < 2.10,
+    template-haskell >= 2.8 && < 2.11,
     -- 
     attoparsec >= 0.10 && < 0.13,
     -- 
@@ -114,7 +114,7 @@
     transformers-base == 0.4.*,
     transformers >= 0.3 && < 0.5,
     base-prelude >= 0.1.3 && < 0.2,
-    base >= 4.5 && < 4.8
+    base >= 4.6 && < 4.9
 
 
 test-suite hspec
@@ -142,8 +142,7 @@
     vector,
     -- 
     mtl-prelude < 3,
-    base-prelude,
-    base
+    base-prelude
 
 
 test-suite hspec-postgres
@@ -175,8 +174,7 @@
     monad-control,
     either,
     mtl-prelude < 3,
-    base-prelude,
-    base
+    base-prelude
 
 
 -- Well, it's not a benchmark actually, 
@@ -200,6 +198,6 @@
     hasql,
     hasql-postgres == 0.10.*,
     transformers >= 0.3 && < 0.5,
-    base >= 4.5 && < 4.8
+    base
 
 
diff --git a/library/Hasql/CxRow.hs b/library/Hasql/CxRow.hs
--- a/library/Hasql/CxRow.hs
+++ b/library/Hasql/CxRow.hs
@@ -33,7 +33,7 @@
     connectionType =
       VarT (mkName "c")
     constraints =
-      map (\t -> ClassP ''Bknd.CxValue [connectionType, t]) varTypes
+      map (\t -> THUtil.classP ''Bknd.CxValue [connectionType, t]) varTypes
     head =
       AppT (AppT (ConT ''CxRow) connectionType) (foldl AppT (TupleT arity) varTypes)
     parseRowDec =
diff --git a/library/Hasql/TH.hs b/library/Hasql/TH.hs
--- a/library/Hasql/TH.hs
+++ b/library/Hasql/TH.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 -- |
 -- TH utils.
 module Hasql.TH where
@@ -71,3 +72,9 @@
           (VarE 'Vector.unsafeFreeze)
           (VarE vectorVarName)))
 
+classP :: Name -> [Type] -> Pred
+#if MIN_VERSION_template_haskell(2,10,0)
+classP n tl = foldl AppT (ConT n) tl
+#else
+classP = ClassP
+#endif