return error on undefined opers in instance and resource

src/GF/Compile/CheckGrammar.hs

@@ -84,7 +84,7 @@ checkModule ms (name,mod) = checkIn ("checking module" +++ prt name) $ case mod
       MTInterface -> mapsCheckTree (checkResInfo gr name mo) js
 
       MTInstance a -> do
-        ModMod abs <- checkErr $ lookupModule gr a
+        -- ModMod abs <- checkErr $ lookupModule gr a
         -- checkCompleteInstance abs mo -- this is done in Rebuild
         mapsCheckTree (checkResInfo gr name mo) js
 
@@ -241,8 +241,8 @@ checkResInfo gr mo mm (c,info) = do
            (de',ty') <- infer de
            return (Yes ty', Yes de')
          (_,Nope) -> do
-           checkWarn "No definition given to oper"
+           raise "No definition given to oper"
-           return (pty,pde)
+           --return (pty,pde)
          _ -> return (pty, pde) --- other cases are uninteresting
       return (c, ResOper pty' pde')
 

src/GF/Compile/Rebuild.hs

@@ -60,6 +60,7 @@ rebuildModule ms mo@(i,mi) = do
                   {positions = 
                     buildTree (tree2list (positions m1) ++ 
                                tree2list (positions m))}
+--          checkCompleteInstance m1 m'
           return $ ModMod m'
         _ -> return mi