module Profiteur.DataFile ( includeFile, module Profiteur.DataFile.Internal ) where import Paths_profiteur (getDataFileName) import System.IO (Handle) import qualified Data.ByteString.Lazy as BL import qualified Language.Javascript.JQuery as JQuery import Profiteur.DataFile.Internal includeFile :: Handle -> DataType -> IO () includeFile :: Handle -> DataType -> IO () includeFile Handle h DataType JQueryFile = Handle -> ByteString -> IO () BL.hPutStr Handle h forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b =<< FilePath -> IO ByteString BL.readFile forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b =<< IO FilePath JQuery.file includeFile Handle h (DataFile FilePath filePath) = Handle -> ByteString -> IO () BL.hPutStr Handle h forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b =<< FilePath -> IO ByteString BL.readFile forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b =<< FilePath -> IO FilePath getDataFileName FilePath filePath