From 546e778ba8c9ea4109fbe278c6363818a43eaa0f Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 14 Nov 2006 19:13:33 +0000 Subject: internal representation for param value index --- src/GF/Compile/PrOld.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Compile/PrOld.hs') diff --git a/src/GF/Compile/PrOld.hs b/src/GF/Compile/PrOld.hs index 7aa0db623..29920fab6 100644 --- a/src/GF/Compile/PrOld.hs +++ b/src/GF/Compile/PrOld.hs @@ -49,7 +49,7 @@ stripInfo (c,i) = case i of AbsCat (Yes co) (Yes fs) -> rc $ AbsCat (Yes (stripContext co)) nope AbsFun (Yes ty) (Yes tr) -> rc $ AbsFun (Yes (stripTerm ty)) (Yes(stripTerm tr)) AbsFun (Yes ty) _ -> rc $ AbsFun (Yes (stripTerm ty)) nope - ResParam (Yes ps) -> rc $ ResParam (Yes [(c,stripContext co) | (c,co)<- ps]) + ResParam (Yes (ps,m)) -> rc $ ResParam (Yes ([(c,stripContext co) | (c,co)<- ps],Nothing)) CncCat (Yes ty) _ _ -> rc $ CncCat (Yes (stripTerm ty)) nope nope CncFun _ (Yes tr) _ -> rc $ CncFun Nothing (Yes (stripTerm tr)) nope -- cgit v1.2.3