-- Should never occur

isError :: CommandResult -> Bool
isError CommandResult {exitStatus = ExitFailure _} = True
isError :: CommandResult -> Bool
isError CommandResult {exitStatus = ExitFailure _} = True
isError CommandResult {exitStatus = ExitFailure _} = True