[#334] resolved issue with escaping regular unescaped chars

src/Toml/Type/Printer.hs

@@ -178,21 +178,16 @@ prettyKeyValue options i = mapOrdered (\kv -> [kvText kv]) options . HashMap.toL
     showTextUnicode :: Text -> Text
     showTextUnicode text = Text.pack quotedText
       where
-        quotedText = finalText
+        quotedText = show finalText
         finalText = foldl (\acc (ch, asciiCh) -> acc ++ getCh ch asciiCh) "" asciiArr 
-        xss = unicodeEscape $ show $ Text.unpack text
+        xss = Text.unpack text
         asciiArr = zip xss $ asciiStatus xss
         getCh ch True  = [ch]
-        getCh ch False = printf "\\\\U%08x" ordChr :: String
+        getCh ch False = printf "\\U%08x" ordChr :: String
           where
             ordChr = ord ch
         asciiStatus = map isAscii
 
-        unicodeEscape "" = ""
-        unicodeEscape ('\\':'\\':'u':xs) = '\\':'\\':'u': unicodeEscape xs
-        unicodeEscape ('\\':'\\':'U':xs) = '\\':'\\':'U': unicodeEscape xs
-        unicodeEscape (x:xs) = x : unicodeEscape xs
-
     showDouble :: Double -> Text
     showDouble d | isInfinite d && d < 0 = "-inf"
                  | isInfinite d = "inf"