Add throwSTM :: Exception e => e -> STM a