Move checkPredefError from GF.Compile.Compute.ConcreteLazy to GF.Grammar.Macros

Also simplified its type.
This commit is contained in:
hallgren
2013-11-29 14:43:01 +00:00
parent d7f3aab994
commit 6f590a3f2c
4 changed files with 9 additions and 9 deletions

View File

@@ -519,12 +519,6 @@ getArgType t = case t of
V ty _ -> return ty
T (TComp ty) _ -> return ty
_ -> fail (render (text "cannot get argument type of table" $$ nest 2 (ppTerm Unqualified 0 t)))
checkPredefError :: SourceGrammar -> Term -> Err Term
checkPredefError sgr t =
case t of
Error s -> fail ("Error: "++s)
_ -> return t
{-
-- Old