From 0a59f95d92223bae842323d582ec5d2eb3156a8d Mon Sep 17 00:00:00 2001 From: hallgren Date: Fri, 29 Nov 2013 14:43:01 +0000 Subject: Move checkPredefError from GF.Compile.Compute.ConcreteLazy to GF.Grammar.Macros Also simplified its type. --- src/compiler/GF/Compile/Compute/ConcreteLazy.hs | 6 ------ 1 file changed, 6 deletions(-) (limited to 'src/compiler/GF/Compile/Compute') diff --git a/src/compiler/GF/Compile/Compute/ConcreteLazy.hs b/src/compiler/GF/Compile/Compute/ConcreteLazy.hs index cef4c398c..67d21768b 100644 --- a/src/compiler/GF/Compile/Compute/ConcreteLazy.hs +++ b/src/compiler/GF/Compile/Compute/ConcreteLazy.hs @@ -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 -- cgit v1.2.3