@@ -14,8 +14,7 @@ module Data.FileEmbed
1414 ) where
1515
1616import Language.Haskell.TH.Syntax
17− ( runQ
18− , Exp (AppE, ListE, LitE, TupE)
17+ ( Exp (AppE, ListE, LitE, TupE)
1918#if MIN_VERSION_template_haskell(2,5,0)
2019 , Lit (StringL, StringPrimL, IntegerL)
2120#else
@@ -105,7 +104,10 @@ fileList' realTop top = do
105104liftPair2 :: Monad m => (a, m b) -> m (a, b)
106105liftPair2 (a, b) = b >>= \b' -> return (a, b')
107106
107+magic :: String
108108magic = concat ["fe", "MS"]
109+
110+sizeLen :: Int
109111sizeLen = 20
110112
111113getInner :: B.ByteString -> B.ByteString
@@ -151,7 +153,7 @@ inject toInj orig =
151153 size = case reads $ B8.unpack sizeBS of
152154 (i, _):_ -> i
153155 [] -> error $ "Data.FileEmbed (inject): Your dummy space has been corrupted. Size is: " ++ show sizeBS
154− (dummy, after) = B.splitAt size rest'
156+ (_dummy, after) = B.splitAt size rest'
155157
156158injectFile :: B.ByteString
157159 -> FilePath -- ^ template file