diff --git a/src/compiler/WebSharper.Compiler.FSharp/CodeReader.fs b/src/compiler/WebSharper.Compiler.FSharp/CodeReader.fs index cd7a2b86..1a86df2e 100644 --- a/src/compiler/WebSharper.Compiler.FSharp/CodeReader.fs +++ b/src/compiler/WebSharper.Compiler.FSharp/CodeReader.fs @@ -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 ]