@@ -51,22 +51,22 @@ plainToPara x = x
5151--
5252
5353data WriterState =
54− WriterState { stNotes :: [Doc]
55− , stTableStyles :: [Doc]
56− , stParaStyles :: [Doc]
57− , stListStyles :: [(Int, [Doc])]
58− , indentPara :: Int
59− , inDefinition :: Bool
54+ WriterState { stNotes :: [Doc]
55+ , stTableStyles :: [Doc]
56+ , stParaStyles :: [Doc]
57+ , stListStyles :: [(Int, [Doc])]
58+ , stIndentPara :: Int
59+ , stInDefinition :: Bool
6060 }
6161
6262defaultWriterState :: WriterState
6363defaultWriterState =
64− WriterState { stNotes = []
65− , stTableStyles = []
66− , stParaStyles = []
67− , stListStyles = []
68− , indentPara = 0
69− , inDefinition = False
64+ WriterState { stNotes = []
65+ , stTableStyles = []
66+ , stParaStyles = []
67+ , stListStyles = []
68+ , stIndentPara = 0
69+ , stInDefinition = False
7070 }
7171
7272when :: Bool -> Doc -> Doc
@@ -82,13 +82,13 @@ addParaStyle :: Doc -> State WriterState ()
8282addParaStyle i = modify $ \s -> s { stParaStyles = i : stParaStyles s }
8383
8484increaseIndent :: State WriterState ()
85−increaseIndent = modify $ \s -> s { indentPara = 1 + indentPara s }
85+increaseIndent = modify $ \s -> s { stIndentPara = 1 + stIndentPara s }
8686
8787resetIndent :: State WriterState ()
88−resetIndent = modify $ \s -> s { indentPara = 0 }
88+resetIndent = modify $ \s -> s { stIndentPara = 0 }
8989
9090setInDefinitionList :: Bool -> State WriterState ()
91−setInDefinitionList b = modify $ \s -> s { inDefinition = b }
91+setInDefinitionList b = modify $ \s -> s { stInDefinition = b }
9292
9393inParagraphTags :: Doc -> Doc
9494inParagraphTags = inTags False "text:p" [("text:style-name", "Text_20_body")]
@@ -428,8 +428,8 @@ tableStyle num wcs =
428428paraStyle :: String -> [(String,String)] -> State WriterState Int
429429paraStyle parent attrs = do
430430 pn <- (+) 1 . length <$> gets stParaStyles
431− i <- (*) 0.5 . fromIntegral <$> gets indentPara :: State WriterState Double
432− b <- gets inDefinition
431+ i <- (*) 0.5 . fromIntegral <$> gets stIndentPara :: State WriterState Double
432+ b <- gets stInDefinition
433433 let styleAttr = [ ("style:name" , "P" ++ show pn)
434434 , ("style:family" , "paragraph" )
435435 , ("style:parent-style-name", parent )]