@@ -189,6 +189,8 @@ dummySpace = dummySpaceWith "MS"
189-- order for this to work, the same postfix must be used by 'inject' /
189-- order for this to work, the same postfix must be used by 'inject' /
190-- 'injectFile'. This allows an executable to have multiple
190-- 'injectFile'. This allows an executable to have multiple
191-- 'ByteString's injected into it, without encountering collisions.
191-- 'ByteString's injected into it, without encountering collisions.
192dummySpaceWith :: B.ByteString -> Int -> Q Exp
194dummySpaceWith :: B.ByteString -> Int -> Q Exp
193dummySpaceWith postfix space = do
195dummySpaceWith postfix space = do
194 let size = padSize space
196 let size = padSize space
@@ -210,6 +212,8 @@ inject :: B.ByteString -- ^ bs to inject
210inject = injectWith "MS"
212inject = injectWith "MS"
212-- | Like 'inject', but takes a postfix for the magic string.
214-- | Like 'inject', but takes a postfix for the magic string.
213injectWith :: B.ByteString -- ^ postfix of magic string
217injectWith :: B.ByteString -- ^ postfix of magic string
214 -> B.ByteString -- ^ bs to inject
218 -> B.ByteString -- ^ bs to inject
215 -> B.ByteString -- ^ original BS containing dummy
219 -> B.ByteString -- ^ original BS containing dummy
@@ -235,6 +239,8 @@ injectFile :: B.ByteString -- ^ bs to inject
235injectFile = injectFileWith "MS"
239injectFile = injectFileWith "MS"
237-- | Like 'injectFile', but takes a postfix for the magic string.
241-- | Like 'injectFile', but takes a postfix for the magic string.
238injectFileWith :: B.ByteString -- ^ postfix of magic string
244injectFileWith :: B.ByteString -- ^ postfix of magic string
239 -> B.ByteString -- ^ bs to inject
245 -> B.ByteString -- ^ bs to inject
240 -> FilePath -- ^ template file
246 -> FilePath -- ^ template file