diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-08-10 23:04:14 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-10 23:04:14 -0700 |
commit | 6aaf8f4770916fcef433d0078502d674a1c97fc7 (patch) | |
tree | 047b72916bbd49414b9d316c0ef71b772fb45860 /src/Text/Pandoc/App.hs | |
parent | ed4f6b348a7a53900dbddadc6681bc7561661f36 (diff) | |
download | pandoc-6aaf8f4770916fcef433d0078502d674a1c97fc7.tar.gz |
Expose getDefaultDataFile in both Shared and Class.
Diffstat (limited to 'src/Text/Pandoc/App.hs')
-rw-r--r-- | src/Text/Pandoc/App.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs index 073b1f3ef..8a7947de6 100644 --- a/src/Text/Pandoc/App.hs +++ b/src/Text/Pandoc/App.hs @@ -84,8 +84,8 @@ import Text.Pandoc.PDF (makePDF) import Text.Pandoc.Process (pipeProcess) import Text.Pandoc.SelfContained (makeDataURI, makeSelfContained) import Text.Pandoc.Shared (headerShift, isURI, openURL, readDataFile, - readDataFileUTF8, safeRead, tabFilter, - eastAsianLineBreakFilter) + readDataFileUTF8, readDefaultDataFile, + safeRead, tabFilter, eastAsianLineBreakFilter) import qualified Text.Pandoc.UTF8 as UTF8 import Text.Pandoc.XML (toEntities) import Text.Printf @@ -1007,7 +1007,7 @@ options = , Option "" ["print-default-data-file"] (ReqArg (\arg _ -> do - readDataFile Nothing arg >>= BS.hPutStr stdout + readDefaultDataFile arg >>= BS.hPutStr stdout exitSuccess) "FILE") "" -- "Print default data file" |