joshuaclayton/unused
1
1
Fork 0
mirror of https://github.com/joshuaclayton/unused.git synced 2024-08-15 15:50:26 +03:00
Code Issues Projects Releases Wiki Activity

Have withInterruptHandler be more transparent

Browse Source
This commit is contained in:
Joshua Clayton 2016-05-15 16:02:21 -04:00
parent 790b62c999
commit 233f83bdf8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Unused/CLI/Util.hs
View File

@ -16,7 +16,7 @@ resetScreen = do
clearScreen
setCursorPosition 0 0
withInterruptHandler :: IO () -> IO ()
withInterruptHandler :: IO a -> IO a
withInterruptHandler body = do
tid <- myThreadId
void $ installHandler keyboardSignal (Catch (handleInterrupt tid)) Nothing