aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-06-01 15:29:27 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-06-01 15:29:27 -0700
commit6327ccf523bb5d550d85dd7782079b8f070fe5d1 (patch)
treeb609f3f101db61b2ef4a8c87646b9bb65144ee7a /src/Text/Pandoc
parentc8bc70a6bb12e0fbfadadb9480efafb3be4f11a5 (diff)
downloadpandoc-6327ccf523bb5d550d85dd7782079b8f070fe5d1.tar.gz
Minor code reformat.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/Docx.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
index 6fd76c9c7..026cfcb41 100644
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -60,6 +60,11 @@ import qualified Control.Exception as E
import Text.Pandoc.MIME (getMimeType, extensionFromMimeType)
import Control.Applicative ((<|>))
+data ListMarker = NoMarker
+ | BulletMarker
+ | NumberMarker ListNumberStyle ListNumberDelim Int
+ deriving (Show, Read, Eq, Ord)
+
data WriterState = WriterState{
stTextProperties :: [Element]
, stParaProperties :: [Element]
@@ -73,11 +78,6 @@ data WriterState = WriterState{
, stLists :: [ListMarker]
}
-data ListMarker = NoMarker
- | BulletMarker
- | NumberMarker ListNumberStyle ListNumberDelim Int
- deriving (Show, Read, Eq, Ord)
-
defaultWriterState :: WriterState
defaultWriterState = WriterState{
stTextProperties = []