@@ -652,16 +652,16 @@ pCustomStyle sty = mknode "w:pStyle" [("w:val",sty)] ()
652652pStyleM :: String -> WS XML.Element
653653pStyleM = flip fmap (gets stParaStyles) . pStyle
654654
655−rStyle :: String -> CharStyleMap -> Element
656−rStyle sty (CharStyleMap m) = mknode "w:rStyle" [("w:val",sty')] ()
657− where
658− sty' = getStyleId sty m
655+-- rStyle :: String -> CharStyleMap -> Element
656+-- rStyle sty (CharStyleMap m) = mknode "w:rStyle" [("w:val",sty')] ()
657+-- where
658+-- sty' = getStyleId sty m
659659
660660rCustomStyle :: String -> Element
661661rCustomStyle sty = mknode "w:rStyle" [("w:val",sty)] ()
662662
663−rStyleM :: String -> WS XML.Element
664−rStyleM = flip fmap (gets stCharStyles) . rStyle
663+-- rStyleM :: String -> WS XML.Element
664+-- rStyleM = flip fmap (gets stCharStyles) . rStyle
665665
666666getUniqueId :: MonadIO m => m String
667667-- the + 20 is to ensure that there are no clashes with the rIds
@@ -866,8 +866,8 @@ withTextProp d p = do
866866 popTextProp
867867 return res
868868
869−withTextPropM :: WS Element -> WS a -> WS a
870−withTextPropM = (. flip withTextProp) . (>>=)
869+-- withTextPropM :: WS Element -> WS a -> WS a
870+-- withTextPropM = (. flip withTextProp) . (>>=)
871871
872872getParaProps :: Bool -> WS [Element]
873873getParaProps displayMathPara = do