From ba153585db4b124ed86245c04e6275c6ed0c4049 Mon Sep 17 00:00:00 2001 From: Nikolay Yakimov Date: Tue, 24 Feb 2015 02:34:46 +0300 Subject: Comment out unused functions to make CI happy --- src/Text/Pandoc/Writers/Docx.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'src/Text') 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 -- cgit v1.2.3