middle polarity for French in Romance (for "personne ne dort")

lib/src/catalan/CatCat.gf

@@ -1,6 +1,6 @@
 --# -path=.:../romance:../abstract:../common:prelude
 
 concrete CatCat of Cat = 
-  CommonX - [SC,Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] ** 
+  CommonX - [SC,Temp,TTAnt,Tense,TPres,TPast,TFut,TCond,Pol] ** 
   CatRomance with -- JS restore TPast for notpresent
   (ResRomance = ResCat) ;

lib/src/catalan/DiffCat.gf

@@ -104,9 +104,9 @@ oper
         in
         neg.p1 ++ verb ++ bindIf clpr.p3 ++ clpr.p1 ++ compl ;
 
-    negation : Polarity => (Str * Str) = table {
-      Pos => <[],[]> ;
-      Neg => <"no",[]>
+    negation : RPolarity => (Str * Str) = table {
+      RPos => <[],[]> ;
+      RNeg _ => <"no",[]>
       } ;
 
     conjThan = "que" ;

lib/src/catalan/GrammarCat.gf

@@ -11,7 +11,7 @@ concrete GrammarCat of Grammar =
   RelativeCat,
   ConjunctionCat,
   PhraseCat,
-  TextX - [SC,Temp,Tense],
+  TextX - [SC,Temp,Tense,Pol,PPos,PNeg],
   IdiomCat,
   StructuralCat,
   TenseCat

lib/src/catalan/IdiomCat.gf

@@ -15,7 +15,7 @@ concrete IdiomCat of Idiom = CatCat **
         (\\agr => 
            let 
              clpr = <vp.clit1,vp.clit2> ; ----e pronArg agr.n agr.p vp.clAcc vp.clDat ;
-             obj  = clpr.p2 ++ vp.comp ! agr ++ vp.ext ! Pos ---- pol
+             obj  = clpr.p2 ++ vp.comp ! agr ++ vp.ext ! RPos ---- pol
            in
            vp.s.s ! VGer ++ clpr.p1 ++ obj
         )
@@ -38,7 +38,7 @@ concrete IdiomCat of Idiom = CatCat **
       } ;
 
     ImpPl1 vp = {s =
-      mkImperative False P1 vp ! Pos ! Masc ! Pl --- fem
+      mkImperative False P1 vp ! RPos ! Masc ! Pl --- fem
       } ;
 
     CleftAdv ad s = mkClause [] True False (agrP3 Masc Sg) 

lib/src/catalan/TenseCat.gf

@@ -1,3 +1,3 @@
-concrete TenseCat of Tense = CatCat, TenseX [Ant,Pol,AAnter,ASimul,PNeg,PPos] ** 
+concrete TenseCat of Tense = CatCat, TenseX [Ant,AAnter,ASimul] ** 
   TenseRomance with
     (ResRomance = ResCat) ;