-- | Embed data into the executable binary
module Haskus.Utils.Embed
   ( embedBytes
   , module Data.FileEmbed
   )
where

import Language.Haskell.TH
import Data.FileEmbed
import Data.Word

-- | Embed bytes in a C array, return an Addr#
embedBytes :: [Word8] -> Q Exp
embedBytes bs = return $ LitE (StringPrimL bs)