diff --git a/ChangeLog.md b/ChangeLog.md
new file mode 100644
--- /dev/null
+++ b/ChangeLog.md
@@ -0,0 +1,3 @@
+## 0.0.7.1
+
+Minor cleanup
diff --git a/Data/FileEmbed.hs b/Data/FileEmbed.hs
--- a/Data/FileEmbed.hs
+++ b/Data/FileEmbed.hs
@@ -187,11 +187,8 @@
             map (toEnum . fromEnum) $
 #endif
             start ++ replicate space '0'
-    let len = LitE $ IntegerL $ fromIntegral $ length start + space
-    upi <- [|unsafePerformIO|]
-    pack <- [|unsafePackAddressLen|]
-    getInner' <- [|getInner|]
-    return $ getInner' `AppE` (upi `AppE` (pack `AppE` len `AppE` chars))
+    let len = fromIntegral $ length start + space :: Int
+    [| getInner (unsafePerformIO (unsafePackAddressLen len $(return chars))) |]
 #endif
 
 inject :: B.ByteString -- ^ bs to inject
diff --git a/README.md b/README.md
new file mode 100644
--- /dev/null
+++ b/README.md
@@ -0,0 +1,4 @@
+## file-embed
+
+Use Template Haskell to read a file or all the files in a directory, and turn
+them into (path, text) pairs embedded in your haskell code.
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.7
+version:         0.0.7.1
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>
@@ -13,7 +13,9 @@
 cabal-version:   >= 1.8
 build-type:      Simple
 homepage:        https://github.com/snoyberg/file-embed
-extra-source-files: test/main.hs, test/sample/foo, test/sample/bar/baz
+extra-source-files: test/main.hs, test/sample/foo, test/sample/bar/baz,
+                    ChangeLog.md
+                    README.md
 
 library
     build-depends:   base               >= 4       && < 5