git.iko.soy/typeable/pandoc
on 34412cf help sign in
typeable/pandoc/src/Text/Pandoc/Data.hsb
15 lines 580 B history raw
1{-# LANGUAGE OverloadedStrings #-}
2-- to be processed using hsb2hs
3module Text.Pandoc.Data (dataFiles) where
4import qualified Data.ByteString as B
5import System.FilePath (splitDirectories)
6import qualified System.FilePath.Posix as Posix
8-- We ensure that the data files are stored using Posix
9-- path separators (/), even on Windows.
10dataFiles :: [(FilePath, B.ByteString)]
11dataFiles = map (\(fp, contents) ->
12 (Posix.joinPath (splitDirectories fp), contents)) dataFiles'
14dataFiles' :: [(FilePath, B.ByteString)]
15dataFiles' = ("MANUAL.txt", %blob "MANUAL.txt") : %blobs "data"