diff options
Diffstat (limited to 'src/Text/Pandoc/Shared.hs')
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index dbe00d231..19d915b11 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -84,7 +84,6 @@ module Text.Pandoc.Shared ( filteredFilesFromArchive, -- * Error handling err, - warn, mapLeft, -- * for squashing blocks blocksToInlines, @@ -784,10 +783,6 @@ err exitCode msg = liftIO $ do exitWith $ ExitFailure exitCode return undefined -warn :: MonadIO m => String -> m () -warn msg = liftIO $ do - UTF8.hPutStrLn stderr $ "[warning] " ++ msg - mapLeft :: (a -> b) -> Either a c -> Either b c mapLeft f (Left x) = Left (f x) mapLeft _ (Right x) = Right x |