aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorNikolay Yakimov <root@livid.pp.ru>2015-02-24 02:34:46 +0300
committerNikolay Yakimov <root@livid.pp.ru>2015-02-24 02:34:46 +0300
commitba153585db4b124ed86245c04e6275c6ed0c4049 (patch)
tree633a01dd672480d65cb298a5ae8c107b1f364365 /src/Text/Pandoc
parent908a47e4b9c9ad5cc1fd2f5e551ef0fd98d93178 (diff)
downloadpandoc-ba153585db4b124ed86245c04e6275c6ed0c4049.tar.gz
Comment out unused functions to make CI happy
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/Docx.hs16
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