diff --git a/Rlang-QQ.cabal b/Rlang-QQ.cabal
--- a/Rlang-QQ.cabal
+++ b/Rlang-QQ.cabal
@@ -1,5 +1,5 @@
 name: Rlang-QQ
-version: 0.1.0.2
+version: 0.1.0.3
 cabal-version: >=1.8
 build-type: Simple
 license: BSD3
@@ -13,6 +13,7 @@
              of the quasiquote.
 category: Development
 author: Adam Vogt <vogt.adam@gmail.com>
+tested-with: GHC == 7.6.2
 data-dir: rsrc
 data-files: Tree.R parseTreeExample.R
 extra-source-files: examples/*.hs,
@@ -30,7 +31,7 @@
 
     build-depends: base ==4.*, containers,
                    template-haskell ==2.8.*, directory, process,
-                   trifecta ==1.1.*, utf8-string ==0.3.*, bytestring,
+                   trifecta ==1.*, utf8-string ==0.3.*, bytestring,
                    Cabal, syb, mtl, MaybeT,
                    binary, vector, HList >= 0.3, temporary,
                    text, array, zlib, repa,
diff --git a/examples/test6_fig1.png b/examples/test6_fig1.png
deleted file mode 100644
Binary files a/examples/test6_fig1.png and /dev/null differ
diff --git a/src/RlangQQ/Binary.hs b/src/RlangQQ/Binary.hs
--- a/src/RlangQQ/Binary.hs
+++ b/src/RlangQQ/Binary.hs
@@ -145,7 +145,7 @@
         V.mapM (const $ do
             get :: Get Int32 -- version
             len <- get :: Get Int32
-            bs <- getBytes (fromIntegral len)
+            bs <- getByteString (fromIntegral len)
             return (E.decodeUtf8 bs)
             ) $ V.replicate (fromIntegral nstr) ()
 
@@ -328,7 +328,7 @@
         putByteString s'
 getString = do
         len <- get :: Get Int32
-        string <- getBytes (fromIntegral len)
+        string <- getByteString (fromIntegral len)
         return (BS.toString string)
 
 confirmString s = do
@@ -605,7 +605,7 @@
 fromRDA :: forall __ r.  FromRDA __ r => B.ByteString -> Record r
 fromRDA x = ( $ GZip.decompress x) $ runGet $ do
     let hdr =  "RDX2\nX\n"
-    hdr' <- fmap (BS.toString) $ getBytes (BS.length (BS.fromString hdr))
+    hdr' <- fmap (BS.toString) $ getByteString (BS.length (BS.fromString hdr))
     unless (hdr == hdr') $ fail "wrong header"
     [{- 2 , 196609, 131840 -} _, _, _ :: Int32 ] <- replicateM 3 get
     fmap (\(RDA a) -> Record (hMap1 FLVPair (a::HList __) )) fromRDS