Automatic whitespace removal

src/finnish/IdiomFin.gf

@@ -4,20 +4,20 @@ concrete IdiomFin of Idiom = CatFin **
   flags optimize=all_subs ; coding=utf8;
 
   lin
-    ExistNP np = 
-      let 
+    ExistNP np =
+      let
         cas : Polarity -> NPForm = \p -> case p of {
           Pos => NPSep ; -- on olemassa luku
           Neg => NPCase Part  -- ei ole olemassa lukua
           }
       in
-      mkClause noSubj (agrP3 Sg) (insertObj 
+      mkClause noSubj (agrP3 Sg) (insertObj
         (\\_,b,_ => "olemassa" ++ np.s ! cas b) (predV olla)) ;
 
-    ExistIP ip = 
+    ExistIP ip =
       let
         cas : SubjCase = SCNom ; ---- also partitive in Extra
-        vp = insertObj (\\_,b,_ => "olemassa") (predV olla) ; 
+        vp = insertObj (\\_,b,_ => "olemassa") (predV olla) ;
         cl = mkClause (subjForm (ip ** {isPron = False ; a = agrP3 ip.n}) cas) (agrP3 ip.n) vp
       in {
         s = \\t,a,p => cl.s ! t ! a ! p ! SDecl
@@ -25,13 +25,13 @@ concrete IdiomFin of Idiom = CatFin **
 
 -- Notice the nominative in the cleft $NP$: "se on Matti josta Liisa pitää"
 
-    CleftNP np rs = mkClause (\_ -> "se") (agrP3 Sg) 
+    CleftNP np rs = mkClause (\_ -> "se") (agrP3 Sg)
       (insertExtrapos (rs.s ! np.a)
         (insertObj (\\_,_,_ => np.s ! NPSep) (predV olla))) ;
 
 -- This gives the almost forbidden "se on Porissa kun Matti asuu".
 
-    CleftAdv ad s = mkClause (\_ -> "se") (agrP3 Sg) 
+    CleftAdv ad s = mkClause (\_ -> "se") (agrP3 Sg)
       (insertExtrapos ("kun" ++ s.s)
         (insertObj (\\_,_,_ => ad.s) (predV olla))) ;
 
@@ -39,8 +39,8 @@ concrete IdiomFin of Idiom = CatFin **
 
     GenericCl vp = mkClausePol vp.vptyp.isNeg noSubj (agrP3 Sg) (passVP vp (casePrep nominative)) ;
 
-    ProgrVP vp = 
-      let 
+    ProgrVP vp =
+      let
         inf = (sverb2verbSep vp.s).s ! Inf Inf3Iness ;
         on  = predV olla
       in {
@@ -51,14 +51,14 @@ concrete IdiomFin of Idiom = CatFin **
         vptyp = vp.vptyp ;
         } ;
 
-  ImpPl1 vp = 
+  ImpPl1 vp =
     let vps = (sverb2verbSep vp.s).s ! ImperP1Pl
     in
     {s = vps ++
          vp.s2 ! True ! Pos ! Ag Pl P1 ++ vp.adv ! Pos ++ vp.ext
     } ;
 
-  ImpP3 np vp = 
+  ImpP3 np vp =
     let vps = (sverb2verbSep vp.s).s ! ImperP3 (verbAgr np.a).n
     in
     {s = np.s ! subjcase2npform vp.s.sc ++ vps ++
@@ -75,11 +75,11 @@ concrete IdiomFin of Idiom = CatFin **
       } ;
 
   ExistNPAdv np adv =
-      mkClausePol np.isNeg (\_ -> adv.s) np.a (insertObj 
+      mkClausePol np.isNeg (\_ -> adv.s) np.a (insertObj
         (\\_,b,_ => np.s ! NPSep) (predV vpVerbOlla)) ;
 
   ExistIPAdv ip adv =
-      let 
+      let
         c  = case ip.n of {Sg => Nom ; Pl => Part} ;
         cl = mkClause (\_ -> ip.s ! NPCase c ++ adv.s) (agrP3 Sg)  -- kuka täällä on ; keitä täällä on
                       (predV vpVerbOlla) ;
@@ -92,4 +92,3 @@ concrete IdiomFin of Idiom = CatFin **
 
     noSubj : Polarity -> Str = \_ -> [] ;
 }
-