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 1067d59609
commit 0a59f95d92
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