fix eng parad

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

View File

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

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"