forked from GitHub/gf-rgl
10 lines
200 B
Plaintext
10 lines
200 B
Plaintext
concrete NamesCat of Names = CatCat ** open ResCat in {
|
|
|
|
lin GivenName, MaleSurname, FemaleSurname = \n -> pn2np n ;
|
|
lin FullName gn sn = pn2np {
|
|
s = gn.s ++ sn.s ;
|
|
g = gn.g
|
|
} ;
|
|
|
|
}
|