git.iko.soy/typeable/file-embed
on master help sign in
Merge pull request #25 from OlivierSohn/patch-1
47ad3a5Michael Snoyman
Data/FileEmbed.hs+1−1
compare with master
unifiedsplit
@@ -90,7 +90,7 @@ embedFile fp =
90-- > import qualified Data.ByteString
90-- > import qualified Data.ByteString
91-- >
91-- >
92-- > myFile :: Data.ByteString.ByteString
92-- > myFile :: Data.ByteString.ByteString
93−-- > myFile = $(embedFile' [ "dirName/fileName", "src/dirName/fileName" ])
93+-- > myFile = $(embedOneFileOf [ "dirName/fileName", "src/dirName/fileName" ])
94embedOneFileOf :: [FilePath] -> Q Exp
94embedOneFileOf :: [FilePath] -> Q Exp
95embedOneFileOf ps =
95embedOneFileOf ps =
96 (runIO $ readExistingFile ps) >>= \ ( path, content ) -> do
96 (runIO $ readExistingFile ps) >>= \ ( path, content ) -> do