diff options
| author | aarne <unknown> | 2004-04-27 19:37:01 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-04-27 19:37:01 +0000 |
| commit | e5c60c9cfd25d260576c451f3005d8f6f27966a4 (patch) | |
| tree | 0188459d703a8728c695958a49186fcf5863d65f /src/GF/Compile/PrOld.hs | |
| parent | 233d6910e4716f078876541bfbd4ce6163ffd0c8 (diff) | |
optimization in make
Diffstat (limited to 'src/GF/Compile/PrOld.hs')
| -rw-r--r-- | src/GF/Compile/PrOld.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Compile/PrOld.hs b/src/GF/Compile/PrOld.hs index 4462fb95d..683dbe419 100644 --- a/src/GF/Compile/PrOld.hs +++ b/src/GF/Compile/PrOld.hs @@ -57,7 +57,7 @@ stripTerm t = case t of TWild ty -> TWild $ stripTerm ty _ -> ti R [] -> EInt 8 --- GF 1.2 parser doesn't accept empty records - RecType [] -> Cn "Int" --- + RecType [] -> Cn (zIdent "Int") --- _ -> composSafeOp stripTerm t stripPattern p = case p of |