@@ -31,6 +31,7 @@ import qualified Text.Pandoc.UTF8 as UTF8
31import Text.Printf (printf)
31import Text.Printf (printf)
32import Text.Parsec.Error
32import Text.Parsec.Error
33import Text.Parsec.Pos hiding (Line)
33import Text.Parsec.Pos hiding (Line)
34+import Text.Pandoc.Shared (tshow)
35type Input = Text
36type Input = Text
@@ -144,6 +145,3 @@ err exitCode msg = do
144 UTF8.hPutStrLn stderr (T.unpack msg)
145 UTF8.hPutStrLn stderr (T.unpack msg)
145 exitWith $ ExitFailure exitCode
146 exitWith $ ExitFailure exitCode
146 return undefined
147 return undefined
148−tshow :: Show a => a -> Text
149−tshow = T.pack . show