diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-10-03 21:48:59 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-10-03 21:48:59 -0400 |
| commit | 41f4c8741f00da6b233f2f3f176875c21a1d208e (patch) | |
| tree | f605ba9af4e4a45e03f0c3b8ebe10ec82b031dc7 /src | |
| parent | ab31d5ea8d0fc17b900a5843104784a25a2c8ed9 (diff) | |
Clean up commented-out code
A few commented out functions were left in the code during the
conversion from StateT to ReaderT. This removes them.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 407df18e7..18e739958 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -112,8 +112,6 @@ data WriterState = WriterState{ , stSectionIds :: Set.Set String , stExternalLinks :: M.Map String String , stImages :: M.Map FilePath (String, String, Maybe MimeType, Element, B.ByteString) - -- , stListLevel :: Int - -- , stListNumId :: Int , stLists :: [ListMarker] , stInsId :: Int , stDelId :: Int @@ -134,8 +132,6 @@ defaultWriterState = WriterState{ , stSectionIds = Set.empty , stExternalLinks = M.empty , stImages = M.empty - -- , stListLevel = -1 - -- , stListNumId = 1 , stLists = [NoMarker] , stInsId = 1 , stDelId = 1 @@ -978,12 +974,6 @@ getTextProps = do then [] else [mknode "w:rPr" [] props] --- pushTextProp :: Element -> WS () --- pushTextProp d = modify $ \s -> s{ stTextProperties = d : stTextProperties s } - --- popTextProp :: WS () --- popTextProp = modify $ \s -> s{ stTextProperties = drop 1 $ stTextProperties s } - withTextProp :: Element -> WS a -> WS a withTextProp d p = local (\env -> env {envTextProperties = d : envTextProperties env}) p @@ -1296,5 +1286,3 @@ setLTR x = do , envTextProperties = textProps' } else x - - |