Stop handling exception that we do not expect

Now that we guard via hSupportsANSI this is not
an exception that should occur. And if it occurs
we'd rather crash, as reading of stdin can be broken
after such an exception.
master
Lennart Spitzner 2022-02-09 21:35:49 +00:00
parent 09c8e81095
commit aabc498fdb
1 changed files with 1 additions and 4 deletions

View File

@ -452,10 +452,7 @@ main = B.mainFromCmdParser $ do
termWidthMay <- restore $ do
support <- Ansi.hSupportsANSI System.IO.stdin
if support
then try Ansi.getTerminalSize <&> \case
Left (_e :: IOException) -> Nothing
Right Nothing -> Nothing
Right (Just (_, w)) -> Just w
then fmap snd <$> Ansi.getTerminalSize
else pure Nothing
let stdoutCheckCount =
length