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

Use void

Browse Source
This commit is contained in:
Joshua Clayton 2016-05-11 21:30:03 -04:00
parent 5b69d45caf
commit ca694df50e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,6 +4,7 @@ module Unused.CLI.Util
, module System.Console.ANSI
) where
import Control.Monad (void)
import System.Console.ANSI
import Control.Exception (throwTo)
import System.Posix.Signals (Handler(Catch), installHandler, keyboardSignal)
@ -18,7 +19,7 @@ resetScreen = do
withInterruptHandler :: IO () -> IO ()
withInterruptHandler body = do
tid <- myThreadId
_ <- installHandler keyboardSignal (Catch (handleInterrupt tid)) Nothing
void $ installHandler keyboardSignal (Catch (handleInterrupt tid)) Nothing
body
handleInterrupt :: ThreadId -> IO ()