fix: allow String.concat to work on lists (#1430)

carp-lang · Aug 30, 2022 · d67e4be · d67e4be
1 parent e4adef0
commit d67e4be
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Commands.hs b/src/Commands.hs
@@ -500,6 +500,10 @@ commandStringConcat ctx a =
  case mapM unwrapStringXObj strings of
  Left err -> evalError ctx err (xobjInfo a)
  Right result -> (ctx, Right (XObj (Str (join result)) (Just dummyInfo) (Just StringTy)))
+ XObj (Lst strings) _ _ ->
+ case mapM unwrapStringXObj strings of
+ Left err -> evalError ctx err (xobjInfo a)
+ Right result -> (ctx, Right (XObj (Str (join result)) (Just dummyInfo) (Just StringTy)))
  _ -> evalError ctx ("Can't call concat with " ++ pretty a) (xobjInfo a)
 
 commandStringSplitOn :: BinaryCommandCallback