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

fix eng parad

Browse Source
This commit is contained in:
aarne
2004-05-21 15:12:51 +00:00
parent 8963681a3b
commit ba74c109cd
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Compile/PrOld.hs
View File

@@ -56,8 +56,8 @@ stripTerm t = case t of
TComp ty -> TComp $ stripTerm ty TComp ty -> TComp $ stripTerm ty
TWild ty -> TWild $ stripTerm ty TWild ty -> TWild $ stripTerm ty
_ -> ti _ -> ti
R [] -> EInt 8 --- GF 1.2 parser doesn't accept empty records ---- R [] -> EInt 8 --- GF 1.2 parser doesn't accept empty records
RecType [] -> Cn (zIdent "Int") --- ---- RecType [] -> Cn (zIdent "Int") ---
_ -> composSafeOp stripTerm t _ -> composSafeOp stripTerm t
stripPattern p = case p of stripPattern p = case p of

2
src/Today.hs
View File

@@ -1 +1 @@
module Today where today = "Tue May 18 23:54:22 CEST 2004" module Today where today = "Fri May 21 18:10:31 CEST 2004"