diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # CHANGELOG
 
+## 2.2.0
+### Added
+* `MonadHReader` instance for `PgMonadT`
+
 ## 2.1.0
 ### Changed
 * use hset-2.0 and hreader-1.0
diff --git a/postgresql-query.cabal b/postgresql-query.cabal
--- a/postgresql-query.cabal
+++ b/postgresql-query.cabal
@@ -1,5 +1,5 @@
 name:                postgresql-query
-version:             2.1.0
+version:             2.2.0
 
 synopsis: Sql interpolating quasiquote plus some kind of primitive ORM
           using it
diff --git a/src/Database/PostgreSQL/Query/Types.hs b/src/Database/PostgreSQL/Query/Types.hs
--- a/src/Database/PostgreSQL/Query/Types.hs
+++ b/src/Database/PostgreSQL/Query/Types.hs
@@ -354,6 +354,11 @@
     {-# INLINABLE local #-}
     {-# INLINABLE reader #-}
 
+instance (MonadHReader m) => MonadHReader (PgMonadT m) where
+  type MHRElements (PgMonadT m) = MHRElements m
+  askHSet = PgMonadT askHSet
+  {-# INLINEABLE askHSet #-}
+
 instance (MonadBase IO m) => HasPostgres (PgMonadT m) where
     withPGConnection action = do
         con <- PgMonadT ask