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 termWidthMay <- restore $ do
support <- Ansi.hSupportsANSI System.IO.stdin support <- Ansi.hSupportsANSI System.IO.stdin
if support if support
then try Ansi.getTerminalSize <&> \case then fmap snd <$> Ansi.getTerminalSize
Left (_e :: IOException) -> Nothing
Right Nothing -> Nothing
Right (Just (_, w)) -> Just w
else pure Nothing else pure Nothing
let stdoutCheckCount = let stdoutCheckCount =
length length