diff --git a/blaze-html.cabal b/blaze-html.cabal
--- a/blaze-html.cabal
+++ b/blaze-html.cabal
@@ -1,5 +1,5 @@
 Name:         blaze-html
-Version:      0.4.3.3
+Version:      0.4.3.4
 Homepage:     http://jaspervdj.be/blaze
 Bug-Reports:  http://github.com/jaspervdj/blaze-html/issues
 License:      BSD3
diff --git a/src/Text/Blaze/Renderer/Pretty.hs b/src/Text/Blaze/Renderer/Pretty.hs
--- a/src/Text/Blaze/Renderer/Pretty.hs
+++ b/src/Text/Blaze/Renderer/Pretty.hs
@@ -1,3 +1,7 @@
+{-# LANGUAGE CPP #-}
+#if defined(__GLASGOW_HASKELL__) && (__GLASGOW_HASKELL__ >= 704)
+{-# LANGUAGE Trustworthy #-}
+#endif
 -- | A renderer that produces pretty HTML, mostly meant for debugging purposes.
 --
 module Text.Blaze.Renderer.Pretty
diff --git a/src/Text/Blaze/Renderer/String.hs b/src/Text/Blaze/Renderer/String.hs
--- a/src/Text/Blaze/Renderer/String.hs
+++ b/src/Text/Blaze/Renderer/String.hs
@@ -1,3 +1,7 @@
+{-# LANGUAGE CPP #-}
+#if defined(__GLASGOW_HASKELL__) && (__GLASGOW_HASKELL__ >= 704)
+{-# LANGUAGE Trustworthy #-}
+#endif
 -- | A renderer that produces a native Haskell 'String', mostly meant for
 -- debugging purposes.
 --
diff --git a/src/Text/Blaze/Renderer/Text.hs b/src/Text/Blaze/Renderer/Text.hs
--- a/src/Text/Blaze/Renderer/Text.hs
+++ b/src/Text/Blaze/Renderer/Text.hs
@@ -1,3 +1,7 @@
+{-# LANGUAGE CPP #-}
+#if defined(__GLASGOW_HASKELL__) && (__GLASGOW_HASKELL__ >= 704)
+{-# LANGUAGE Trustworthy #-}
+#endif
 {-# LANGUAGE OverloadedStrings #-}
 -- | A renderer that produces a lazy 'L.Text' value, using the Text Builder.
 --
diff --git a/src/Text/Blaze/Renderer/Utf8.hs b/src/Text/Blaze/Renderer/Utf8.hs
--- a/src/Text/Blaze/Renderer/Utf8.hs
+++ b/src/Text/Blaze/Renderer/Utf8.hs
@@ -1,3 +1,7 @@
+{-# LANGUAGE CPP #-}
+#if defined(__GLASGOW_HASKELL__) && (__GLASGOW_HASKELL__ >= 704)
+{-# LANGUAGE Trustworthy #-}
+#endif
 {-# LANGUAGE OverloadedStrings #-}
 module Text.Blaze.Renderer.Utf8
     ( renderHtmlBuilder
diff --git a/src/Util/GenerateHtmlCombinators.hs b/src/Util/GenerateHtmlCombinators.hs
--- a/src/Util/GenerateHtmlCombinators.hs
+++ b/src/Util/GenerateHtmlCombinators.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE CPP #-}
 
 #define DO_NOT_EDIT (doNotEdit __FILE__ __LINE__)
+#define TRUSTWORTHY "{-# LANGUAGE CPP #-}\n#if defined(__GLASGOW_HASKELL__) && (__GLASGOW_HASKELL__ >= 704)\n{-# LANGUAGE Trustworthy #-}\n#endif"
 
 -- | Generates code for HTML tags.
 --
@@ -67,6 +68,7 @@
     -- Write the main module.
     writeFile' (basePath <.> "hs") $ removeTrailingNewlines $ unlines
         [ DO_NOT_EDIT
+        , TRUSTWORTHY
         , "{-# LANGUAGE OverloadedStrings #-}"
         , "-- | This module exports HTML combinators used to create documents."
         , "--"
@@ -90,6 +92,7 @@
     -- Write the attribute module.
     writeFile' (basePath </> "Attributes.hs") $ removeTrailingNewlines $ unlines
         [ DO_NOT_EDIT
+        , TRUSTWORTHY
         , "-- | This module exports combinators that provide you with the"
         , "-- ability to set attributes on HTML elements."
         , "--"