adapt :: (ExitCode, String, String) -> IO (Maybe String)
adapt (ExitFailure _, _, _) = return Nothing
adapt :: (ExitCode, String, String) -> IO (Maybe String)
adapt (ExitFailure _, _, _) = return Nothing
adapt (ExitFailure _, _, _) = return Nothing