@@ -367,14 +367,14 @@ and private typeToString (t: Type) : string =
367367 | Unit -> " Microsoft.FSharp.Core.Unit"
368368 | Any -> " System.Object"
369369 | LambdaType( argType, returnType) ->
370- $" Microsoft.FSharp.Core.FSharpFunc`2[{typeToString argType},{typeToString returnType}]"
370+ $" Microsoft.FSharp.Core.FSharpFunc`2[%s {typeToString argType},%s {typeToString returnType}]"
371371 | Tuple( genArgs, _) ->
372372 let args = genArgs |> List.map typeToString |> String.concat " ,"
373- $" System.Tuple`{genArgs.Length}[{args}]"
373+ $" System.Tuple`%d {genArgs.Length}[%s {args}]"
374374 | DeclaredType( entRef, _ genArgs) -> entRef.FullName
375- | Option( genArg, _) -> $" Microsoft.FSharp.Core.FSharpOption`1[{typeToString genArg}]"
376- | List genArg -> $" Microsoft.FSharp.Collections.FSharpList`1[{typeToString genArg}]"
377- | Array( genArg, _) -> $" {typeToString genArg}[]"
375+ | Option( genArg, _) -> $" Microsoft.FSharp.Core.FSharpOption`1[%s {typeToString genArg}]"
376+ | List genArg -> $" Microsoft.FSharp.Collections.FSharpList`1[%s {typeToString genArg}]"
377+ | Array( genArg, _) -> $" %s {typeToString genArg}[]"
378378 | _ -> " System.Object"
379379
380380and private makeArray ( elementType : Type ) ( elements : Expr list ) : Expr =
@@ -385,7 +385,7 @@ and private emitLiteral (com: Compiler) (ctorName: string) (args: Expr list) : E
385385 Helper.LibCall( com, " Quotation" , " mkValue" , Any, [ lit ])
386386
387387and private emitUnsupported ( com : Compiler ) ( nodeName : string ) : Expr =
388- let msg = $" Unsupported quotation node: {nodeName}"
388+ let msg = $" Unsupported quotation node: %s {nodeName}"
389389 com.AddLog( msg, Severity.Warning, tag = " FABLE" )
390390 let lit = Helper.LibCall( com, " Quotation" , " mkString" , Any, [ makeStrConst msg ])
391391 Helper.LibCall( com, " Quotation" , " mkValue" , Any, [ lit ])
0 commit comments