From 045dd212a722c275ae8e8358c70e990ad4e90c51 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 19 Sep 2020 15:55:11 -0700 Subject: Remove duplicate tshow definition. --- src/Text/Pandoc/Error.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Error.hs b/src/Text/Pandoc/Error.hs index 4c3c1af79..2e67e5bc1 100644 --- a/src/Text/Pandoc/Error.hs +++ b/src/Text/Pandoc/Error.hs @@ -31,6 +31,7 @@ import qualified Text.Pandoc.UTF8 as UTF8 import Text.Printf (printf) import Text.Parsec.Error import Text.Parsec.Pos hiding (Line) +import Text.Pandoc.Shared (tshow) type Input = Text @@ -144,6 +145,3 @@ err exitCode msg = do UTF8.hPutStrLn stderr (T.unpack msg) exitWith $ ExitFailure exitCode return undefined - -tshow :: Show a => a -> Text -tshow = T.pack . show -- cgit v1.2.3