module UserManagement.Transactions (checkSuperadmin) where

import Hasql.Transaction (Transaction, statement)

import qualified UserManagement.Statements as Statements
import UserManagement.User (UserID)

checkSuperadmin :: UserID -> Transaction Bool
checkSuperadmin :: UserID -> Transaction Bool
checkSuperadmin UserID
uid = UserID -> Statement UserID Bool -> Transaction Bool
forall a b. a -> Statement a b -> Transaction b
statement UserID
uid Statement UserID Bool
Statements.checkSuperadmin