1
0
forked from GitHub/gf-rgl

Get rid of some trailing spaces

This commit is contained in:
Ayberk Tosun
2017-08-22 14:18:22 +03:00
parent 7f98c3198e
commit a9a3d48c7f

View File

@@ -213,7 +213,6 @@ oper
} ;
in makeVerb inf base progBase pastBase aoristBase futureTable har;
makeVerb inf base progBase pastBase aoristBase futureTable har =
let
futht = getHarVowP (futureTable ! Hard) ;
@@ -231,7 +230,6 @@ oper
}
} ;
-- Implementation of noun paradigms
mkNoun sn sa sd sg sl sabl sgabPos sgabNeg sgs pln har =
let plHar = getHarmony pln ;
@@ -267,7 +265,6 @@ oper
irregN_h sn sg har = irregN har sn sg ;
irregN ht sn sg =
let
pln = add_number Pl sn ht ;
@@ -286,7 +283,6 @@ oper
pln
har ;
regN sn =
let har = getHarmony sn ;
pln = add_number Pl sn har.vow ;
@@ -304,7 +300,6 @@ oper
pln
har ;
regPN sn = makePN sn sn ;
makeHarPN sn sy har =
@@ -478,7 +473,6 @@ oper
_ => PlSyl
} ;
-- construct a table contatining soft and hard forms of a base
getBaseTable : Str -> Softness => Str =
\base -> table {