diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,8 @@
+0.7.3.0
+=======
+
+  * Made `dedentSubst` more polymorphic
+
 0.7.2.0
 =======
 
diff --git a/directory-layout.cabal b/directory-layout.cabal
--- a/directory-layout.cabal
+++ b/directory-layout.cabal
@@ -1,5 +1,5 @@
 name:                directory-layout
-version:             0.7.2.0
+version:             0.7.3.0
 synopsis:            Directory layout DSL
 description:
   Making, fitting, printing directory layouts
@@ -21,7 +21,7 @@
 source-repository this
   type:     git
   location: https://github.com/supki/directory-layout
-  tag:      0.7.2.0
+  tag:      0.7.3.0
 
 library
   default-language:
diff --git a/src/System/Directory/Layout.hs b/src/System/Directory/Layout.hs
--- a/src/System/Directory/Layout.hs
+++ b/src/System/Directory/Layout.hs
@@ -19,6 +19,7 @@
   , binary
   , text
   , dedent
+  , dedentSubst
   , copyOf
   , source
   , exists
diff --git a/src/System/Directory/Layout/QQ.hs b/src/System/Directory/Layout/QQ.hs
--- a/src/System/Directory/Layout/QQ.hs
+++ b/src/System/Directory/Layout/QQ.hs
@@ -11,6 +11,7 @@
 import           Data.List (intercalate)
 import           Data.Sequence (Seq, ViewL(..), ViewR(..), (|>))
 import qualified Data.Sequence as Seq
+import           Data.String (fromString)
 import           Language.Haskell.TH.Quote (QuasiQuoter(..))
 import           Language.Haskell.TH.Syntax (liftString)
 import           Language.Haskell.TH (Q, Exp)
@@ -53,7 +54,7 @@
 --   world
 --   !
 dedentSubst :: QuasiQuoter
-dedentSubst = dedentWith substituteVars
+dedentSubst = dedentWith $ \x -> [e| fromString $(substituteVars x) |]
 
 dedentWith :: (String -> Q Exp) -> QuasiQuoter
 dedentWith f = quoter $ f . withLines (strip . trim (all isSpace))