@@ -31,6 +31,7 @@ import qualified Text.Pandoc.UTF8 as UTF8
3131import Text.Printf (printf)
3232import Text.Parsec.Error
3333import Text.Parsec.Pos hiding (Line)
34+import Text.Pandoc.Shared (tshow)
3435
3536type Input = Text
3637
@@ -144,6 +145,3 @@ err exitCode msg = do
144145 UTF8.hPutStrLn stderr (T.unpack msg)
145146 exitWith $ ExitFailure exitCode
146147 return undefined
147−
148−tshow :: Show a => a -> Text
149−tshow = T.pack . show