debugging testgf3

examples/features/Param.gf

@@ -2,9 +2,10 @@ resource Param = {
 
   param Bool = True | False ;
 
-  oper and : Bool -> Bool -> Bool = \x,y -> case x of {
+  oper and  -- : Bool -> Bool -> Bool 
+   = \\x,y => case x of {
     True => y ;
-    _ => False
+    False => False
     } ;
 
 }

src/GF/Devel/Compile/CheckGrammar.hs

@@ -203,8 +203,10 @@ checkCompleteGrammar abs cnc = do
 checkResInfo :: GF -> Ident -> Ident -> Judgement -> Check Judgement
 checkResInfo gr mo c info = do
   ----  checkReservedId c
+  trace (show info) (return ())
   case jform info of
     JOper -> chIn "operation" $ case (jtype info, jdef info) of
+      _ | isConstructor info -> return info
       (_,Meta _) -> do
         checkWarn "No definition given to oper"
         return info
@@ -698,6 +700,7 @@ getOverload env@gr mt t = case appForm t of
 
 checkLType :: GF -> Term -> Type -> Check (Term, Type)
 checkLType env trm typ0 = do
+  trace (show trm) (return ())
 
   typ <- comp typ0
 

src/GF/Devel/Compile/Compile.hs

@@ -34,9 +34,12 @@ batchCompile opts files = do
 
 -- to output an intermediate stage
 intermOut :: Options -> Option -> String -> IOE ()
-intermOut opts opt s = if oElem opt opts then 
-  ioeIO (putStrLn ("\n\n--#" +++ prOpt opt) >> putStrLn s) 
-  else return ()
+intermOut opts opt s = 
+  if oElem opt opts || oElem (iOpt "show_all") opts
+  then 
+    ioeIO (putStrLn ("\n\n--#" +++ prOpt opt) >> putStrLn s) 
+  else 
+    return ()
 
 prMod :: SourceModule -> String
 prMod = prModule

src/GF/Devel/Grammar/Lookup.hs

@@ -44,7 +44,7 @@ lookupOperType gr m c = do
   case jform ju of
     JParam -> return typePType
     _ -> case jtype ju of
-      Meta _ -> fail ("no type given to " ++ prIdent m ++ "." ++ prIdent c ++ " in " ++ show ju)
+      Meta _ -> fail ("no type given to " ++ prIdent m ++ "." ++ prIdent c)
       ty -> return ty
 ---- can't be just lookupJField jtype 
 

src/GF/Devel/README-testgf3

@@ -26,9 +26,11 @@ More options (debugging flags):
   -show_refreshing -- ... after refreshing variables
   -show_optimize   -- ... after partial evaluation
   -show_factorize  -- ... after factoring optimization
+  -show_all        -- show all phases
+
+  -1  -- stop after parsing
+  -2  -- ... extending
+  -3  -- ... renaming
+  -4  -- ... type checking
+  -5  -- ... refreshing
 
-  -1  -- stop before extending
-  -2  -- ... renaming
-  -3  -- ... type checking
-  -4  -- ... refreshing
-  -5  -- ... partial evaluation