GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 09:32:53 -06:00
Code Issues Packages Projects Releases Wiki Activity

use evalError instead of erro

Browse Source
This commit is contained in:
Krasimir Angelov
2024-10-22 08:29:30 +02:00
parent ebececef6d
commit f3a1fadd0c
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/api/GF/Compile/GeneratePMCFG.hs
View File

@@ -184,7 +184,7 @@ flatten v ty@(QC q) (lins,params) = do
flatten v ty (lins,params) flatten v ty (lins,params)
| Just n <- isTypeInts ty = do deepForce v | Just n <- isTypeInts ty = do deepForce v
return (lins,(v,ty):params) 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 (VR as) = mapM_ (\(lbl,v) -> force v >>= deepForce) as
deepForce (VApp q tnks) = mapM_ (\tnk -> force tnk >>= deepForce) tnks deepForce (VApp q tnks) = mapM_ (\tnk -> force tnk >>= deepForce) tnks