Use [] for superscripts and subscripts in textile writer.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Writers/Textile.hs b/src/Text/Pandoc/Writers/Textile.hs
index 05acb5e8b..cb8f20a0a 100644
--- a/src/Text/Pandoc/Writers/Textile.hs
+++ b/src/Text/Pandoc/Writers/Textile.hs
@@ -344,13 +344,13 @@ inlineToTextile opts (Superscript lst) = do
   contents <- inlineListToTextile opts lst
   return $ if '^' `elem` contents
               then "<sup>" ++ contents ++ "</sup>"
-              else "^" ++ contents ++ "^"
+              else "[^" ++ contents ++ "^]"
 
 inlineToTextile opts (Subscript lst) = do
   contents <- inlineListToTextile opts lst
   return $ if '~' `elem` contents
               then "<sub>" ++ contents ++ "</sub>"
-              else "~" ++ contents ++ "~"
+              else "[~" ++ contents ++ "~]"
 
 inlineToTextile opts (SmallCaps lst) = inlineListToTextile opts lst