1 {-# LANGUAGE TemplateHaskell #-}
    2 module Databrary.Model.Permission.SQL
    3   ( accessRow
    4   , accessSets
    5   ) where
    6 
    7 import Databrary.Model.SQL.Select
    8 import Databrary.Model.Permission.Types
    9 
   10 accessRow :: String -- ^ Table name
   11   -> Selector -- ^ 'Access'
   12 accessRow table = selectColumns 'Access table ["site", "member"]
   13 
   14 accessSets :: String -- ^ @'Access'@
   15   -> [(String, String)]
   16 accessSets a =
   17   [ ("site", "${accessSite " ++ a ++ "}")
   18   , ("member", "${accessMember " ++ a ++ "}")
   19   ]