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/GF | |
| parent | 8963681a3b821e85185877dd61b7804661fc5c24 (diff) | |
fix eng parad
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Compile/PrOld.hs | 4 |
1 files changed, 2 insertions, 2 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 |