progress on the Names API

src/french/NamesFre.gf

@@ -7,11 +7,10 @@ lin FullName gn sn = pn2np {
     } ;
 
 lin PlainLN n = heavyNP {
-      s = \\c => n.s; 
+      s = \\c => n.s;
       a = {g = n.g ; n = n.num ; p = P3}
       } ;
 
-
 lin UseLN n = heavyNP {
       s = \\c => case n.art of {
         AlwaysArt | UseArt => artDef True n.g n.num c ++ n.s ;

src/french/ParadigmsFre.gf

@@ -151,7 +151,7 @@ oper
 
   defLN : LN -> LN = \n -> n ** {art = AlwaysArt} ;
   useDefLN : LN -> LN = \n -> n ** {art = UseArt} ;
-  prepLN : LN -> Compl -> LN = \n,s -> n ** {p = s} ;
+  prepLN : LN -> Prep -> LN = \n,p -> n ** {p = p} ;
 
   mkPN  : overload {
     mkPN : Str -> PN ; -- feminine if ends with "e", otherwise masculine