@@ -81,9 +81,11 @@ pandocToDokuWiki opts (Pandoc meta blocks) = do
8181 then return $ renderTemplate' (writerTemplate opts) context
8282 else return main
8383
84−-- | Escape special characters for MediaWiki.
84+-- | Escape special characters for DokuWiki.
8585escapeString :: String -> String
86−escapeString str = substitute "__" "%%__%%" ( substitute "**" "%%**%%" ( substitute "//" "%%//%%" str ) )
86+escapeString = substitute "__" "%%__%%" .
87+ substitute "**" "%%**%%" .
88+ substitute "//" "%%//%%"
8789
8890-- | Convert Pandoc block element to DokuWiki.
8991blockToDokuWiki :: WriterOptions -- ^ Options