GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-25 18:58:56 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix the compilation of pre

Browse Source
This commit is contained in:
krangelov
2021-10-21 10:10:04 +02:00
parent 38d189f8ef
commit 259ed52a77
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/compiler/GF/Compile/GeneratePMCFG.hs
View File

@@ -134,7 +134,10 @@ str2lin (VSymCat d r rs) = do (r, rs) <- compute r rs
return (r*cnt'+r',combine cnt' rs rs') return (r*cnt'+r',combine cnt' rs rs')
str2lin (VC vs) = fmap concat (mapM str2lin vs) str2lin (VC vs) = fmap concat (mapM str2lin vs)
str2lin (VAlts def alts) = do def <- str2lin def str2lin (VAlts def alts) = do def <- str2lin def
return [SymKP def []] alts <- forM alts $ \(v,VStrs vs) -> do
lin <- str2lin v
return (lin,[s | VStr s <- vs])
return [SymKP def alts]
str2lin v = do t <- value2term 0 v str2lin v = do t <- value2term 0 v
evalError ("the string:" <+> ppTerm Unqualified 0 t $$ evalError ("the string:" <+> ppTerm Unqualified 0 t $$
"cannot be evaluated at compile time.") "cannot be evaluated at compile time.")