Fix infinite loop in Unshare.lhs