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

Use [Dig] instead of Digits in Time, to avoid commas in English.

Browse Source
This commit is contained in:
bjorn
2008-02-25 21:24:12 +00:00
parent de23fe7483
commit 9aa025007a
2 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/resource/time/TimeEng.gf
View File

@@ -17,6 +17,8 @@ Hour = SS ;
Minute = SS ;
Time = SS ;
[Dig] = { s : CardOrd => Str } ;
lin
DateTimeDateTime date time = { s = date.s ++ "at" ++ time.s };
@@ -84,4 +86,8 @@ OnDate date = let prep = case date.t of {
AtTime time = { s = "at" ++ time.s } ;
BaseDig d = { s = \\o => d.s!o } ;
ConsDig d ds = { s = \\o => d.s!NCard ++ ds.s!o } ;
} ;