Skip to content

Commit

Permalink
#1372 support UI adding more overloads
Browse files Browse the repository at this point in the history
  • Loading branch information
Jand42 committed Apr 16, 2024
1 parent 0fc7240 commit 8c6a86b
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/compiler/WebSharper.Compiler.FSharp/CodeReader.fs
Original file line number Diff line number Diff line change
Expand Up @@ -1343,7 +1343,7 @@ let getBundleMethod (typ: TypeDefinition, m: Method, arguments: FSharpExpr list)
Ok [ string value ]
| a ->
Error $"Content.Bundle argument must be constant string %s{m.Value.MethodName} %A{a}"
elif (typ = contentType || typ = uiContentType) && m.Value.MethodName.StartsWith "Page" && (let al = arguments.Length in al = 2 || al = 5) then
elif (typ = contentType || typ = uiContentType) && m.Value.MethodName.StartsWith "Page" && arguments.Length > 1 then
match arguments |> List.last with
| P.NewUnionCase (_, c, [ P.Const (value, _) ]) when c.Name = "Some" ->
Ok [ string value ]
Expand Down

0 comments on commit 8c6a86b

Please sign in to comment.