forked from GitHub/gf-rgl
Get rid of some trailing spaces
This commit is contained in:
@@ -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 {
|
||||
|
||||
Reference in New Issue
Block a user