msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Get rid of some trailing spaces

Browse Source
This commit is contained in:
Ayberk Tosun
2017-08-22 14:18:22 +03:00
parent 7f98c3198e
commit a9a3d48c7f
1 changed files with 9 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/turkish/ParadigmsTur.gf
View File

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