HCoop / hcoop / portal.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
contact: fix build
[hcoop/portal.git] / chooseDomain.sml
1 structure ChooseDomain :> CHOOSE_DOMAIN = struct
2
3 val domains = Domtool.perms "domain"
4
5 fun yourDomain {user, domain} = Domtool.hasPerm "domain" user domain
6
7 end
Unnamed repository; edit this file 'description' to name the repository.