file-embed 0.0.6 → 0.0.7

raw patch · 2 files changed

+15/−2 lines, 2 files

Files

• Data/FileEmbed.hs +14/−1
• file-embed.cabal +1/−1

@@ -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

@@ -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>