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