(Som) Implement remaining funs needed for ExtendSom + use ExtendFunctor

src/somali/IdiomSom.gf

@@ -1,27 +1,26 @@
 
 --1 Idiom: Idiomatic Expressions
 
-concrete IdiomSom of Idiom = CatSom ** open Prelude, ResSom, VerbSom in {
+concrete IdiomSom of Idiom = CatSom ** open Prelude, ResSom, VerbSom, NounSom, StructuralSom in {
 
 -- This module defines constructions that are formed in fixed ways,
 -- often different even in closely related languages.
 
   lin
 
-  -- : VP -> Cl ;        -- it is hot
-  --ImpersCl =  ;
-
-  -- : VP -> Cl ;        -- one sleeps
-  GenericCl vp = predVP impersNP (passVP vp) ;
+  -- ImpersCl : VP -> Cl ;        -- it is hot
+  -- GenericCl : VP -> Cl ;        -- one sleeps
+  ImpersCl,
+  GenericCl = \vp -> predVP impersNP (passVP vp) ;
 
 {-
     CleftNP   : NP  -> RS -> Cl ; -- it is I who did it
     CleftAdv  : Adv -> S  -> Cl ; -- it is here she slept
     -}
   -- : NP -> Cl ;        -- there is a house
-  -- ExistNP np =
-  --   let vp = UseComp (CompNP np)
-  --   in  ;
+  ExistNP np =
+     let vp = UseComp (CompNP np)
+      in predVP impersNP vp ;
 
 {-    ExistIP   : IP -> QCl ;       -- which houses are there