@@ -108,7 +108,7 @@ wrappedMarkdown opts sect = do
108108-- | Escape special characters for Markdown.
109109escapeString :: String -> String
110110escapeString = escapeStringUsing markdownEscapes
111− where markdownEscapes = ('\160', " "):(backslashEscapes "`<\\*_^")
111+ where markdownEscapes = ('\160', " "):(backslashEscapes "`<\\*_^~")
112112
113113-- | Convert bibliographic information into Markdown header.
114114metaToMarkdown :: WriterOptions -> Meta -> State WriterState Doc