convert to haskell: util_privilege_open()