@@ -60,6 +60,11 @@ import qualified Control.Exception as E
6060import Text.Pandoc.MIME (getMimeType, extensionFromMimeType)
6161import Control.Applicative ((<|>))
6262
63+data ListMarker = NoMarker
64+ | BulletMarker
65+ | NumberMarker ListNumberStyle ListNumberDelim Int
66+ deriving (Show, Read, Eq, Ord)
67+
6368data WriterState = WriterState{
6469 stTextProperties :: [Element]
6570 , stParaProperties :: [Element]
@@ -73,11 +78,6 @@ data WriterState = WriterState{
7378 , stLists :: [ListMarker]
7479 }
7580
76−data ListMarker = NoMarker
77− | BulletMarker
78− | NumberMarker ListNumberStyle ListNumberDelim Int
79− deriving (Show, Read, Eq, Ord)
80−
8181defaultWriterState :: WriterState
8282defaultWriterState = WriterState{
8383 stTextProperties = []