typeable/file-embed
1
0
Fork 0
mirror of https://github.com/typeable/file-embed.git synced 2024-09-11 07:45:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

Rename embedFile' into embedOneFileOf

Browse Source
This commit is contained in:
Roman Kuznetsov 2013-11-27 09:37:05 +01:00
parent 1cabbcfdca
commit 954879fff9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Data/FileEmbed.hs
View File

@ -18,7 +18,7 @@
module Data.FileEmbed
( -- * Embed at compile time
embedFile
, embedFile'
, embedOneFileOf
, embedDir
, getDir
-- * Inject into an executable
@ -76,8 +76,8 @@ embedFile fp =
-- >
-- > myFile :: Data.ByteString.ByteString
-- > myFile = $(embedFile' [ "dirName/fileName", "src/dirName/fileName" ])
embedFile' :: [FilePath] -> Q Exp
embedFile' ps =
embedOneFileOf :: [FilePath] -> Q Exp
embedOneFileOf ps =
(runIO $ readExistingFile ps) >>= \ ( path, content ) -> do
#if MIN_VERSION_template_haskell(2,7,0)
qAddDependentFile path