diff --git a/Data/FileEmbed.hs b/Data/FileEmbed.hs
--- a/Data/FileEmbed.hs
+++ b/Data/FileEmbed.hs
@@ -29,10 +29,11 @@
     , injectFile
       -- * Internal
     , stringToBs
+    , bsToExp
     ) where
 
 import Language.Haskell.TH.Syntax
-    ( Exp (AppE, ListE, LitE, TupE, SigE)
+    ( Exp (AppE, ListE, LitE, TupE, SigE, VarE)
 #if MIN_VERSION_template_haskell(2,5,0)
     , Lit (StringL, StringPrimL, IntegerL)
 #else
@@ -118,10 +119,22 @@
     return $! TupE [LitE $ StringL path, exp']
 
 bsToExp :: B.ByteString -> Q Exp
+#if MIN_VERSION_template_haskell(2, 5, 0)
+bsToExp bs =
+    return $ VarE 'unsafePerformIO
+      `AppE` (VarE 'unsafePackAddressLen
+      `AppE` LitE (IntegerL $ fromIntegral $ B8.length bs)
+#if MIN_VERSION_template_haskell(2, 8, 0)
+      `AppE` LitE (StringPrimL $ B.unpack bs))
+#else
+      `AppE` LitE (StringPrimL $ B8.unpack bs))
+#endif
+#else
 bsToExp bs = do
     helper <- [| stringToBs |]
     let chars = B8.unpack bs
     return $! AppE helper $! LitE $! StringL chars
+#endif
 
 stringToBs :: String -> B.ByteString
 stringToBs = B8.pack
diff --git a/file-embed.cabal b/file-embed.cabal
--- a/file-embed.cabal
+++ b/file-embed.cabal
@@ -1,5 +1,5 @@
 name:            file-embed
-version:         0.0.6
+version:         0.0.7
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>