hexagoxel
/
hxtools
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Handle exception when our stdin gets closed immediately

master
Lennart Spitzner 2022-01-26 21:21:08 +00:00
parent b58597e2e0
commit dfad695899
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src-hxbrief/Main.hs
View File

@ -10,6 +10,9 @@ where
import Control.Concurrent ( threadDelay ) import Control.Concurrent ( threadDelay )
import qualified Control.Concurrent.Async as A import qualified Control.Concurrent.Async as A
import Control.Concurrent.MVar import Control.Concurrent.MVar
import Control.Exception ( IOException
, try
)
import Control.Monad ( forM_ import Control.Monad ( forM_
, forever , forever
, replicateM , replicateM
@ -349,7 +352,10 @@ main = B.mainFromCmdParser $ do
print $ B.ppHelpShallow helpDesc print $ B.ppHelpShallow helpDesc
else withConcurrentOutput $ do else withConcurrentOutput $ do
setLocaleEncoding utf8 setLocaleEncoding utf8
termSizeMay <- Ansi.getTerminalSize termWidthMay <- try Ansi.getTerminalSize <&> \case
Left (_e :: IOException) -> Nothing
Right Nothing -> Nothing
Right (Just (_, w)) -> Just w
let stdoutCheckCount = let stdoutCheckCount =
length length
$ [ () | keepStdout || keepBoth ] $ [ () | keepStdout || keepBoth ]
@ -388,7 +394,7 @@ main = B.mainFromCmdParser $ do
, c_outFile = Nothing , c_outFile = Nothing
, c_errFile = Nothing , c_errFile = Nothing
, c_sectionChar = Nothing -- if section then Just '#' else Nothing , c_sectionChar = Nothing -- if section then Just '#' else Nothing
, c_termWidth = termSizeMay <&> snd , c_termWidth = termWidthMay
} }
, s_regions = [line0] , s_regions = [line0]
, s_history = [] , s_history = []