git.iko.soy/typeable/pandoc
on master help sign in
Minor code reformat.
6327ccfJohn MacFarlane
src/Text/Pandoc/Writers/Docx.hs+5−5
compare with master
unifiedsplit
@@ -60,6 +60,11 @@ import qualified Control.Exception as E
60import Text.Pandoc.MIME (getMimeType, extensionFromMimeType)
60import Text.Pandoc.MIME (getMimeType, extensionFromMimeType)
61import Control.Applicative ((<|>))
61import Control.Applicative ((<|>))
62
62
63+data ListMarker = NoMarker
64+ | BulletMarker
65+ | NumberMarker ListNumberStyle ListNumberDelim Int
66+ deriving (Show, Read, Eq, Ord)
67+
63data WriterState = WriterState{
68data WriterState = WriterState{
64 stTextProperties :: [Element]
69 stTextProperties :: [Element]
65 , stParaProperties :: [Element]
70 , stParaProperties :: [Element]
@@ -73,11 +78,6 @@ data WriterState = WriterState{
73 , stLists :: [ListMarker]
78 , stLists :: [ListMarker]
74 }
79 }
75
80
76−data ListMarker = NoMarker
77− | BulletMarker
78− | NumberMarker ListNumberStyle ListNumberDelim Int
79− deriving (Show, Read, Eq, Ord)
80−
81defaultWriterState :: WriterState
81defaultWriterState :: WriterState
82defaultWriterState = WriterState{
82defaultWriterState = WriterState{
83 stTextProperties = []
83 stTextProperties = []