aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/GroffChar.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/GroffChar.hs')
-rw-r--r--src/Text/Pandoc/GroffChar.hs31
1 files changed, 16 insertions, 15 deletions
diff --git a/src/Text/Pandoc/GroffChar.hs b/src/Text/Pandoc/GroffChar.hs
index 669b2b4a0..8664c627f 100644
--- a/src/Text/Pandoc/GroffChar.hs
+++ b/src/Text/Pandoc/GroffChar.hs
@@ -1,4 +1,5 @@
{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE OverloadedStrings #-}
{-
Copyright (C) 2018 John MacFarlane <jgm@berkeley.edu>
@@ -400,19 +401,19 @@ characterCodes =
-- use like: \\[E a^ aa]
combiningAccents :: [(Char, String)]
combiningAccents =
- [ ('˝' , "\\[a\"]")
- , ('¯', "\\[a-]")
- , ('˙', "\\[a.]")
- , ('^', "\\[a^]")
- , ('´', "\\[aa]")
- , ('`', "\\[ga]")
- , ('˘', "\\[ab]")
- , ('¸', "\\[ac]")
- , ('¨', "\\[ad]")
- , ('ˇ', "\\[ah]")
- , ('˚', "\\[ao]")
- , ('~', "\\[a~]")
- , ('˛', "\\[ho]")
- , ('^', "\\[ha]")
- , ('~', "\\[ti]")
+ [ ('˝' , "a\"")
+ , ('¯', "a-")
+ , ('˙', "a.")
+ , ('^', "a^")
+ , ('´', "aa")
+ , ('`', "ga")
+ , ('˘', "ab")
+ , ('¸', "ac")
+ , ('¨', "ad")
+ , ('ˇ', "ah")
+ , ('˚', "ao")
+ , ('~', "a~")
+ , ('˛', "ho")
+ , ('^', "ha")
+ , ('~', "ti")
]