{-# LANGUAGE TemplateHaskell #-}
module Model.Permission.SQL
  ( accessRow
  , accessSets
  ) where

import Model.SQL.Select
import Model.Permission.Types

accessRow :: String -- ^ Table name
  -> Selector -- ^ 'Access'
accessRow table = selectColumns 'Access table ["site", "member"]

accessSets :: String -- ^ @'Access'@
  -> [(String, String)]
accessSets a =
  [ ("site", "${accessSite " ++ a ++ "}")
  , ("member", "${accessMember " ++ a ++ "}")
  ]