@@ -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']
@@ -153,7 +153,7 @@ inject toInj orig =
153153 size = case reads $ B8.unpack sizeBS of
154154 (i, _):_ -> i
155155 [] -> error $ "Data.FileEmbed (inject): Your dummy space has been corrupted. Size is: " ++ show sizeBS
156− (_dummy, after) = B.splitAt size rest'
156+ after = B.drop size rest'
157157
158158injectFile :: B.ByteString
159159 -> FilePath -- ^ template file