diff options
Diffstat (limited to 'src/Text/Pandoc/Shared.hs')
-rw-r--r-- | src/Text/Pandoc/Shared.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 868edc2c7..e913d5d0b 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -104,7 +104,8 @@ module Text.Pandoc.Shared ( WriterOptions (..), defaultWriterOptions, -- * File handling - inDirectory + inDirectory, + readDataFile ) where import Text.Pandoc.Definition @@ -122,6 +123,7 @@ import System.IO.UTF8 import Data.Generics import qualified Control.Monad.State as S import Control.Monad (join) +import Paths_pandoc (getDataFileName) -- -- List processing @@ -1030,3 +1032,7 @@ inDirectory path action = do result <- action setCurrentDirectory oldDir return result + +-- | Read file from the Cabal data directory. +readDataFile :: FilePath -> IO String +readDataFile fname = getDataFileName fname >>= readFile |