possible to inherit an overload group without excluding+opening

2008-06-03 11:59:00 +00:00
parent 757cad383c
commit fe2d34f9e1
4 changed files with 7 additions and 4 deletions
--- a/src-3.0/GF/Compile/CheckGrammar.hs
+++ b/src-3.0/GF/Compile/CheckGrammar.hs
@@ -260,7 +260,7 @@ checkResInfo gr mo mm (c,info) = do
   checkUniq xss = case xss of
     x:y:xs 
      | x == y -> raise $ "ambiguous for type" +++ 
-                           prtType gr (mkFunType (init x) (last x))  
+                           prtType gr (mkFunType (tail x) (head x))  
      | otherwise -> checkUniq $ y:xs
     _ -> return ()