diff options
| author | John MacFarlane <[email protected]> | 2019-09-22 16:51:58 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2019-09-22 16:51:58 -0700 |
| commit | ab286df364399a8975b72dc86de9c7d85eeaff54 (patch) | |
| tree | b60bfe2a30e5ec3dd9e3da1e74ec4c21ca3d6749 /src/Text/Pandoc/Error.hs | |
| parent | 84a5d18a6b6b5aad2bac849e90ee41dae4618478 (diff) | |
Revert "Class: remove stStdin and readStdinStrict."sandboxed
This reverts commit 4b54454c8f49678d48e7fb33fd7f5471672ad3c7.
Diffstat (limited to 'src/Text/Pandoc/Error.hs')
| -rw-r--r-- | src/Text/Pandoc/Error.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Error.hs b/src/Text/Pandoc/Error.hs index e4ddce42a..ae66162b3 100644 --- a/src/Text/Pandoc/Error.hs +++ b/src/Text/Pandoc/Error.hs @@ -63,9 +63,7 @@ handleError :: Either PandocError a -> IO a handleError (Right r) = return r handleError (Left e) = case e of - PandocIOError fp err' -> do - UTF8.hPutStrLn stderr $ "IO Error (" ++ show fp ++ ")" - ioError err' + PandocIOError _ err' -> ioError err' PandocHttpError u err' -> err 61 $ "Could not fetch " ++ u ++ "\n" ++ show err' PandocShouldNeverHappenError s -> err 62 $ |