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 ]