use evalError instead of erro

GrammaticalFramework · Oct 22, 2024 · f3a1fad · f3a1fad
1 parent ebecece
commit f3a1fad
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/compiler/api/GF/Compile/GeneratePMCFG.hs b/src/compiler/api/GF/Compile/GeneratePMCFG.hs
@@ -184,7 +184,7 @@ flatten v ty@(QC q) (lins,params) = do
 flatten v ty (lins,params)
   | Just n <- isTypeInts ty = do deepForce v
                                  return (lins,(v,ty):params)
-  | otherwise               = error (showValue v)
+  | otherwise               = evalError (pp (showValue v))
 
 deepForce (VR as)          = mapM_ (\(lbl,v) -> force v >>= deepForce) as
 deepForce (VApp q tnks)    = mapM_ (\tnk -> force tnk >>= deepForce) tnks