diff options
| author | Nikolay Yakimov <root@livid.pp.ru> | 2015-02-24 02:34:46 +0300 |
|---|---|---|
| committer | Nikolay Yakimov <root@livid.pp.ru> | 2015-02-24 02:34:46 +0300 |
| commit | ba153585db4b124ed86245c04e6275c6ed0c4049 (patch) | |
| tree | 633a01dd672480d65cb298a5ae8c107b1f364365 /src/Text/Pandoc/Writers | |
| parent | 908a47e4b9c9ad5cc1fd2f5e551ef0fd98d93178 (diff) | |
Comment out unused functions to make CI happy
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 9984c243f..ebd060d38 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -652,16 +652,16 @@ pCustomStyle sty = mknode "w:pStyle" [("w:val",sty)] () pStyleM :: String -> WS XML.Element pStyleM = flip fmap (gets stParaStyles) . pStyle -rStyle :: String -> CharStyleMap -> Element -rStyle sty (CharStyleMap m) = mknode "w:rStyle" [("w:val",sty')] () - where - sty' = getStyleId sty m +-- rStyle :: String -> CharStyleMap -> Element +-- rStyle sty (CharStyleMap m) = mknode "w:rStyle" [("w:val",sty')] () +-- where +-- sty' = getStyleId sty m rCustomStyle :: String -> Element rCustomStyle sty = mknode "w:rStyle" [("w:val",sty)] () -rStyleM :: String -> WS XML.Element -rStyleM = flip fmap (gets stCharStyles) . rStyle +-- rStyleM :: String -> WS XML.Element +-- rStyleM = flip fmap (gets stCharStyles) . rStyle getUniqueId :: MonadIO m => m String -- the + 20 is to ensure that there are no clashes with the rIds @@ -866,8 +866,8 @@ withTextProp d p = do popTextProp return res -withTextPropM :: WS Element -> WS a -> WS a -withTextPropM = (. flip withTextProp) . (>>=) +-- withTextPropM :: WS Element -> WS a -> WS a +-- withTextPropM = (. flip withTextProp) . (>>=) getParaProps :: Bool -> WS [Element] getParaProps displayMathPara = do |