Rlang-QQ 0.1.0.2 → 0.1.0.3
raw patch · 3 files changed
+6/−5 lines, 3 filesdep ~trifecta
Dependency ranges changed: trifecta
Files
- Rlang-QQ.cabal +3/−2
- examples/test6_fig1.png binary
- src/RlangQQ/Binary.hs +3/−3
Rlang-QQ.cabal view
@@ -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,
− examples/test6_fig1.png
binary file changed (9554 → absent bytes)
src/RlangQQ/Binary.hs view
@@ -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