git.iko.soy/typeable/pandoc
on master help sign in
Comment out unused functions to make CI happy
ba15358Nikolay Yakimov
src/Text/Pandoc/Writers/Docx.hs+8−8
compare with master
unifiedsplit
@@ -652,16 +652,16 @@ pCustomStyle sty = mknode "w:pStyle" [("w:val",sty)] ()
652pStyleM :: String -> WS XML.Element
652pStyleM :: String -> WS XML.Element
653pStyleM = flip fmap (gets stParaStyles) . pStyle
653pStyleM = flip fmap (gets stParaStyles) . pStyle
654
654
655−rStyle :: String -> CharStyleMap -> Element
655+-- rStyle :: String -> CharStyleMap -> Element
656−rStyle sty (CharStyleMap m) = mknode "w:rStyle" [("w:val",sty')] ()
656+-- rStyle sty (CharStyleMap m) = mknode "w:rStyle" [("w:val",sty')] ()
657− where
657+-- where
658− sty' = getStyleId sty m
658+-- sty' = getStyleId sty m
659
659
660rCustomStyle :: String -> Element
660rCustomStyle :: String -> Element
661rCustomStyle sty = mknode "w:rStyle" [("w:val",sty)] ()
661rCustomStyle sty = mknode "w:rStyle" [("w:val",sty)] ()
662
662
663−rStyleM :: String -> WS XML.Element
663+-- rStyleM :: String -> WS XML.Element
664−rStyleM = flip fmap (gets stCharStyles) . rStyle
664+-- rStyleM = flip fmap (gets stCharStyles) . rStyle
665
665
666getUniqueId :: MonadIO m => m String
666getUniqueId :: MonadIO m => m String
667-- the + 20 is to ensure that there are no clashes with the rIds
667-- the + 20 is to ensure that there are no clashes with the rIds
@@ -866,8 +866,8 @@ withTextProp d p = do
866 popTextProp
866 popTextProp
867 return res
867 return res
868
868
869−withTextPropM :: WS Element -> WS a -> WS a
869+-- withTextPropM :: WS Element -> WS a -> WS a
870−withTextPropM = (. flip withTextProp) . (>>=)
870+-- withTextPropM = (. flip withTextProp) . (>>=)
871
871
872getParaProps :: Bool -> WS [Element]
872getParaProps :: Bool -> WS [Element]
873getParaProps displayMathPara = do
873getParaProps displayMathPara = do