@@ -66,9 +66,9 @@ getDir :: FilePath -> IO [(FilePath, B.ByteString)]
6666getDir = fileList
6767
6868pairToExp :: FilePath -> (FilePath, B.ByteString) -> Q Exp
69−pairToExp root (path, bs) = do
69+pairToExp _root (path, bs) = do
7070#if MIN_VERSION_template_haskell(2,7,0)
71− qAddDependentFile $ root ++ '/' : path
71+ qAddDependentFile $ _root ++ '/' : path
7272#endif
7373 exp' <- bsToExp bs
7474 return $! TupE [LitE $ StringL path, exp']
@@ -149,7 +149,7 @@ inject toInj orig =
149149 size = case reads $ B8.unpack sizeBS of
150150 (i, _):_ -> i
151151 [] -> error $ "Data.FileEmbed (inject): Your dummy space has been corrupted. Size is: " ++ show sizeBS
152− (_dummy, after) = B.splitAt size rest'
152+ after = B.drop size rest'
153153
154154injectFile :: B.ByteString
155155 -> FilePath -- ^ template file
@@ -159,4 +159,4 @@ injectFile inj srcFP dstFP = do
159159 src <- B.readFile srcFP
160160 case inject inj src of
161161 Nothing -> error "Insufficient dummy space"
162− Just dst -> B.writeFile dstFP dst
162+ Just dst -> B.writeFile dstFP dst