(Ara) whitespace + other small cleanup here and there

2018-12-31 18:01:33 +02:00
parent 10f5e126ab
commit a6948288b7
15 changed files with 55 additions and 64 deletions
@@ -36,15 +36,15 @@ concrete ExtendAra of Extend =
    -- : Temp -> Pol -> VP -> VPS ; -- hasn't slept
    MkVPS t p vp = {
      s = \\pgn => let vps =
-        wordOrderNoSubj 
+        wordOrderNoSubj
          Nominal --  Nominal (=SVO) generalises best for ConjVPS.
-          vp.obj.a.isPron 
+          vp.obj.a.isPron
          (vStr vp pgn t.t p.p Nominal)
          (case <vp.isPred,vp.obj.a.isPron> of {
                    <False,True> => BIND ++ vp.obj.s ;
                    _            =>         vp.obj.s })
-          (pred vp pgn t.t p.p) 
-          vp.s2 
+          (pred vp pgn t.t p.p)
+          vp.s2
      in vps.before ++ vps.after -- word order is SVO, so this is safe for just this case.
      } ;