diff --git a/src/Fable.Compiler/MSBuildCrackerResolver.fs b/src/Fable.Compiler/MSBuildCrackerResolver.fs index 7ee26f8b3..ee81a3e97 100644 --- a/src/Fable.Compiler/MSBuildCrackerResolver.fs +++ b/src/Fable.Compiler/MSBuildCrackerResolver.fs @@ -99,10 +99,10 @@ module private MSBuildCrackerResolver = failwith $"""Failed to parse MSBuild output JSON: -{targetFrameworkJson} +%s{targetFrameworkJson} Exception: -{ex} +%O{ex} """ let tf, tfs = @@ -161,10 +161,10 @@ Exception: failwith $"""Failed to parse MSBuild output JSON: -{json} +%s{json} Exception: -{ex} +%O{ex} """ let items = jsonDocument.RootElement.GetProperty "Items" diff --git a/src/Fable.Transforms/FSharp2Fable.fs b/src/Fable.Transforms/FSharp2Fable.fs index 887d337e9..309da446a 100644 --- a/src/Fable.Transforms/FSharp2Fable.fs +++ b/src/Fable.Transforms/FSharp2Fable.fs @@ -565,7 +565,7 @@ let private transformUnionCaseTest match fableType with | Fable.Any -> return - $"Erased union case '{unionCase.Name}' is typed as 'obj' which cannot be tested at runtime (type test always evaluates to true). Use a more specific type or TypeScriptTaggedUnion instead." + $"Erased union case '%s{unionCase.Name}' is typed as 'obj' which cannot be tested at runtime (type test always evaluates to true). Use a more specific type or TypeScriptTaggedUnion instead." |> addErrorAndReturnNull com ctx.InlinePath r | _ -> let kind = fableType |> Fable.TypeTest