- else do
- oldAttrs <- liftIO $ getTerminalAttributes stdOutput
- f
- liftIO $ setTerminalAttributes stdOutput oldAttrs Immediately
+ else gbracket (liftIO $ getTerminalAttributes stdOutput)
+ (\attrs -> liftIO $ setTerminalAttributes stdOutput attrs Immediately)
+ (const f)