diff options
| author | aarne <unknown> | 2004-04-23 13:45:07 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-04-23 13:45:07 +0000 |
| commit | 233d6910e4716f078876541bfbd4ce6163ffd0c8 (patch) | |
| tree | d81b2a452ab8d7f8081250f3d64448ee7e44b5cc /src/GF/Compile | |
| parent | 2e0c510285ac1cabefea0ab68ffb1215d7297578 (diff) | |
ditt o datt
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/PrOld.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/Compile/PrOld.hs b/src/GF/Compile/PrOld.hs index acce0ab67..4462fb95d 100644 --- a/src/GF/Compile/PrOld.hs +++ b/src/GF/Compile/PrOld.hs @@ -56,6 +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 "Int" --- _ -> composSafeOp stripTerm t stripPattern p = case p of |