GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-11-04 19:25:27 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix eng parad

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

No files matched your search

src/GF/Compile/PrOld.hs
+2 -2
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
src/Today.hs
+1 -1
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"