diff options
Diffstat (limited to 'src-3.0/GF/Compile/CheckGrammar.hs')
| -rw-r--r-- | src-3.0/GF/Compile/CheckGrammar.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src-3.0/GF/Compile/CheckGrammar.hs b/src-3.0/GF/Compile/CheckGrammar.hs index ce6800f28..40f165c4f 100644 --- 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 () |