accepting + patterns in pre expressions

next-lib/src/english/ResEng.gf

@@ -175,13 +175,11 @@ resource ResEng = ParamX ** open Prelude in {
 -- "o" ("one-sided"), vocalic "u" ("umbrella").
 
     artIndef = pre {
-      "a" ; 
+      "eu" | "Eu" | "uni" | "up" => "a" ;
-      "an" / strs {"a" ; "e" ; "i" ; "o" ; "A" ; "E" ; "I" ; "O" }
+      "un" => "an" ; 
+      "a" | "e" | "i" | "o" | "A" | "E" | "I" | "O" => "an" ;
+      _ => "a"
       } ;
----    artIndef = pre {
----      "a" | "e" | "i" | "o" | "A" | "E" | "I" | "O" => "an" ;
----      _ => "a"
----      } ;
 
     artDef = "the" ;
 

src/GF/Compile/Compute.hs

@@ -414,6 +414,10 @@ computeTermOpt rec gr = comput True where
        getPatts p = case p of
          PAlt a b  -> liftM2 (++) (getPatts a) (getPatts b)
          PString s -> return [K s]
+         PSeq a b  -> do
+           as <- getPatts a
+           bs <- getPatts b
+           return [K (s ++ t) | K s <- as, K t <- bs]
          _ -> fail $ "not valid pattern in pre expression" +++ prt p
 
 {- ----