From d54fab0bbf4b4748afd9a93f2410a577d72af4b6 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Fri, 9 May 2025 19:10:51 +0200 Subject: [PATCH] fix typo --- src/compiler/api/GF/Compile/Compute/Concrete2.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/compiler/api/GF/Compile/Compute/Concrete2.hs b/src/compiler/api/GF/Compile/Compute/Concrete2.hs index 6a1b1ecee..ee7e4b024 100644 --- a/src/compiler/api/GF/Compile/Compute/Concrete2.hs +++ b/src/compiler/api/GF/Compile/Compute/Concrete2.hs @@ -938,10 +938,10 @@ value2termM flat xs (VReset ctl mb_cv v qid) = do where reduce ctl mb_cv ts | ctl == cConcat = do - ts' <- case mb_cv of - Just (VInt n) -> return (genericTake n ts) - Nothing -> return ts - _ -> evalError (pp "[concat: .. | ..] requires an integer constant") + ts <- case mb_cv of + Just (VInt n) -> return (genericTake n ts) + Nothing -> return ts + _ -> evalError (pp "[concat: .. | ..] requires an integer constant") case ts of [t] -> return t ts -> return (Markup identW [] ts)