diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-07-04 13:55:48 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-07-05 00:06:27 -0700 |
| commit | 3548bf6d9cdc09c59b36e8d77a1834e1d0619b4a (patch) | |
| tree | a8d1576de6e9eda748014fcbbba293f8f05119a9 /src/pandoc.hs | |
| parent | 998fd098d0c255427648f33480d86eb76178bc69 (diff) | |
| download | pandoc-3548bf6d9cdc09c59b36e8d77a1834e1d0619b4a.tar.gz | |
Moved Pandoc prettyprinting code from Shared to new Native writer.
+ Text.Pandoc.Writers.Native
+ The function prettyPandoc is now gone. Use writeNative instead.
Diffstat (limited to 'src/pandoc.hs')
| -rw-r--r-- | src/pandoc.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/pandoc.hs b/src/pandoc.hs index 00df92e2c..8d02f4c55 100644 --- a/src/pandoc.hs +++ b/src/pandoc.hs @@ -102,7 +102,7 @@ readPandoc _ = read -- | Association list of formats and writers. writers :: [ ( String, WriterOptions -> Pandoc -> String ) ] -writers = [("native" , writeDoc) +writers = [("native" , writeNative) ,("html" , writeHtmlString) ,("html+lhs" , writeHtmlString) ,("s5" , writeS5String) @@ -127,10 +127,6 @@ writers = [("native" , writeDoc) isNonTextOutput :: String -> Bool isNonTextOutput = (`elem` ["odt","epub"]) --- | Writer for Pandoc native format. -writeDoc :: WriterOptions -> Pandoc -> String -writeDoc _ = prettyPandoc - headerShift :: Int -> Pandoc -> Pandoc headerShift n = processWith shift where shift :: Block -> Block |