started a directory of grammars testing testgf3 features

1 files changed, 4 insertions, 8 deletions

diff --git a/src/GF/Devel/Grammar/Lookup.hs b/src/GF/Devel/Grammar/Lookup.hs
index 0d2b343cb..0a8452dcb 100644
--- a/src/GF/Devel/Grammar/Lookup.hs
+++ b/src/GF/Devel/Grammar/Lookup.hs
@@ -61,20 +61,16 @@ lookupOverload gr m c = do
 
 lookupParams :: GF -> Ident -> Ident -> Err [(Ident,Context)]
 lookupParams gf m c = do
-  ty <- lookupJField jtype gf m c
-  return [(k,contextOfType t) | (k,t) <- contextOfType ty]
+  EParam _ ty <- lookupJField jdef gf m c
+  return ty
 
 lookupParamConstructor :: GF -> Ident -> Ident -> Err Type
 lookupParamConstructor = lookupJField jtype
 
 lookupParamValues :: GF -> Ident -> Ident -> Err [Term]
 lookupParamValues gf m c = do
-  d <- lookupJField jdef gf m c
-  case d of
-    ---- V _ ts -> return ts
-    _ -> do
-      ps <- lookupParams gf m c
-      liftM concat $ mapM mkPar ps
+  ps <- lookupParams gf m c
+  liftM concat $ mapM mkPar ps
  where
    mkPar (f,co) = do
      vs <- liftM combinations $ mapM (\ (_,ty) -> allParamValues gf ty) co