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

fix typo

Browse Source
This commit is contained in:
Krasimir Angelov
2025-05-09 19:10:51 +02:00
parent 3d7c8ade17
commit d54fab0bbf
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/compiler/api/GF/Compile/Compute/Concrete2.hs
View File

@@ -938,10 +938,10 @@ value2termM flat xs (VReset ctl mb_cv v qid) = do
where where
reduce ctl mb_cv ts reduce ctl mb_cv ts
| ctl == cConcat = do | ctl == cConcat = do
ts' <- case mb_cv of ts <- case mb_cv of
Just (VInt n) -> return (genericTake n ts) Just (VInt n) -> return (genericTake n ts)
Nothing -> return ts Nothing -> return ts
_ -> evalError (pp "[concat: .. | ..] requires an integer constant") _ -> evalError (pp "[concat: .. | ..] requires an integer constant")
case ts of case ts of
[t] -> return t [t] -> return t
ts -> return (Markup identW [] ts) ts -> return (Markup identW [] ts)