summaryrefslogtreecommitdiff
path: root/src/GF/Compile
diff options
context:
space:
mode:
Diffstat (limited to 'src/GF/Compile')
-rw-r--r--src/GF/Compile/PrOld.hs4
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