convert to haskell: util_privilege_drop()