diff --git a/hasql-th.cabal b/hasql-th.cabal
--- a/hasql-th.cabal
+++ b/hasql-th.cabal
@@ -1,7 +1,7 @@
 name:
   hasql-th
 version:
-  0.2
+  0.2.1
 category:
   Hasql, Database, PostgreSQL, Template Haskell
 synopsis:
@@ -38,7 +38,7 @@
     library
   ghc-options:
   default-extensions:
-    Arrows, BangPatterns, ConstraintKinds, DataKinds, DefaultSignatures, DeriveDataTypeable, DeriveFoldable, DeriveFunctor, DeriveGeneric, DeriveTraversable, EmptyDataDecls, FlexibleContexts, FlexibleInstances, FunctionalDependencies, GADTs, GeneralizedNewtypeDeriving, ImpredicativeTypes, LambdaCase, LiberalTypeSynonyms, MagicHash, MultiParamTypeClasses, MultiWayIf, NoImplicitPrelude, NoMonomorphismRestriction, OverloadedStrings, PatternGuards, ParallelListComp, QuasiQuotes, RankNTypes, RecordWildCards, ScopedTypeVariables, StandaloneDeriving, TemplateHaskell, TupleSections, TypeFamilies, TypeOperators, UnboxedTuples
+    Arrows, BangPatterns, ConstraintKinds, DataKinds, DefaultSignatures, DeriveDataTypeable, DeriveFoldable, DeriveFunctor, DeriveGeneric, DeriveTraversable, EmptyDataDecls, FlexibleContexts, FlexibleInstances, FunctionalDependencies, GADTs, GeneralizedNewtypeDeriving, LambdaCase, LiberalTypeSynonyms, MagicHash, MultiParamTypeClasses, MultiWayIf, NoImplicitPrelude, NoMonomorphismRestriction, OverloadedStrings, PatternGuards, ParallelListComp, QuasiQuotes, RankNTypes, RecordWildCards, ScopedTypeVariables, StandaloneDeriving, TemplateHaskell, TupleSections, TypeFamilies, TypeOperators, UnboxedTuples
   default-language:
     Haskell2010
   other-modules:
@@ -53,4 +53,4 @@
     bytestring >= 0.10 && < 0.11,
     text >= 1 && < 2,
     -- general:
-    base-prelude >= 0.1.19 && < 0.2
+    base-prelude >= 0.1.19 && < 2
diff --git a/library/Hasql/TH.hs b/library/Hasql/TH.hs
--- a/library/Hasql/TH.hs
+++ b/library/Hasql/TH.hs
@@ -1,7 +1,11 @@
-module Hasql.TH where
+module Hasql.TH
+(
+  readFileAsSQL,
+)
+where
 
 import Hasql.TH.Prelude
-import Language.Haskell.TH
+import Language.Haskell.TH.Syntax
 import qualified Hasql.TH.Renderers as Renderers
 import qualified Data.ByteString
 
@@ -19,7 +23,9 @@
 -- >  Hasql.Session.sql $(Hasql.TH.readFileAsSQL "sql/migration-1.sql")
 -- 
 readFileAsSQL :: String -> Q Exp
-readFileAsSQL path =
-  fmap Renderers.byteStringExp $
-  runIO $ Data.ByteString.readFile path
+readFileAsSQL =
+  fmap Renderers.byteStringExp . readFileAsBytes
 
+readFileAsBytes :: String -> Q ByteString
+readFileAsBytes =
+  (*>) <$> addDependentFile <*> runIO . Data.ByteString.readFile