diff options
| author | aarne <unknown> | 2004-05-21 15:12:51 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-05-21 15:12:51 +0000 |
| commit | ba74c109cd38209e046a1cf48ff8ef7604a1261a (patch) | |
| tree | 7cd9cddc0b247dd0b52f7562799584ea7eff16d6 /src | |
| parent | 8963681a3b821e85185877dd61b7804661fc5c24 (diff) | |
fix eng parad
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Compile/PrOld.hs | 4 | ||||
| -rw-r--r-- | src/Today.hs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Compile/PrOld.hs b/src/GF/Compile/PrOld.hs index 683dbe419..ce1983dd1 100644 --- a/src/GF/Compile/PrOld.hs +++ b/src/GF/Compile/PrOld.hs @@ -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 diff --git a/src/Today.hs b/src/Today.hs index 002cdf2bf..980148f83 100644 --- a/src/Today.hs +++ b/src/Today.hs @@ -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" |