From f3a1fadd0c044690c1070f45ca24aacd1260d242 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Tue, 22 Oct 2024 08:29:30 +0200 Subject: [PATCH] use evalError instead of erro --- src/compiler/api/GF/Compile/GeneratePMCFG.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/api/GF/Compile/GeneratePMCFG.hs b/src/compiler/api/GF/Compile/GeneratePMCFG.hs index d8e83084d..a7183d1fa 100644 --- 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