catcher :: IOError -> ()
catcher _ = ()

ignoreException :: IO a -> IO ()
ignoreException f = (f *> pure ()) `catch` (pure . catcher)