async, but I am wondering if this could now all be streamlined to a Task instead?
WebSharper.Sitelets.Context.Link. But in a Rpc function, I get the context with WebSharper.Web.Remoting.GetContext() which is of type WebSharper.Web.Context and doesn't have the Link method. Is there a typesafe way to generate a link to a Sitelet from a Rpc function?
10 replies
The RPC is sending a mail with a link to reset the account password. The link includes a token generated in the RPC. So generating the link should be done in the Rpc too.
I'm starting to use attr.classDyn, but actually attr.classDynPred would be more useful if it also took a view for the situation when the predicate is false. Now it sets the attr if the pred is true, and removes it if false. How do you best handle the situation where you want to set one value when the pred id true, and another when the pred is false. Now I use attr.classDyn and manage it manually, but I'm wondering if there's a better way than this:
let classMapper = fun b -> if b then BS.``text-success`` else BS.``text-danger``
// repeat these
let lengthClass = lengthValid |> View.Map classMapper
// later:
div [attr.classDyn lengthClass]I think that wiith an hypothetical classDynPredBoth it could become just:
div [attr.classDynPredBoth lengthValid (View.Const BS.``text-success``) (View.Const BS.``text-danger``)Maybe it altready exists? I'll try and see if I can make it a helper in my app anyway :-)
3 replies
I'm trying to do it from websharper, but with no success. Anyone knowing how to do it?
Console.Log(RegExp("/\p{Lu}/u").Match("UPPER")I'm implementing password validators for ASP.Net so they handle unicode characters. Here is the one validating that the password has an uppercase letter:
type HasUpper<'TUser when 'TUser : not struct>(t:I18n) =
interface IPasswordValidator<'TUser> with
member _.ValidateAsync(um:UserManager<'TUser>,user:'TUser,password:string) =
async {
if PasswordValidators.hasUpper password then
return IdentityResult.Success
else
return IdentityResult.Failed( IdentityError(Code="NoUpper",Description=t.t("Password must have at least one uppercase letter")))
}|> Async.StartAsTaskI will probably implement 3 or 4 others, having the same structure, but 3 differences (in addition to the name):
- the error code
- the error description
- the PasswordValidators.* function
I've seen websharper macros mentioned in an error I've had. Could macros help in my case to limit the boilerplate? Or should I just go and duplicate the code except for the 3 differences?
4 replies
dotnet new websharper-web.I will start work on forms related code in a data intensive app, and I'd rather know now if Websharper.Forms is the way to go or not. I also don't want to be stuck at WS 4. What do you advise? Embrace Websharper.Forms or avoid it ?
20 replies
I'm implementing Conways Game of Life with ws.mvu for performance measuring and I ran into an issue. This is what my nodes look like:
div [
on.click (fun _ _ -> dispatch (Check (x, y)))
on.viewUpdate model (fun _ _ -> dispatch (Step (x, y)))
attr.classDyn (tr.Map(fun x -> if x then "gol-box gol-triggered" else "gol-box"))
] [])With Step (x, y) I'm changing the models (model: Grid: ((int int) bool), Triggered: bool) correct element (model.Grid[x width + y]) with switching its value. After that, with attr.classDyn I want to change the classes of the div based on the nodes new value, but with this implementation the model doesn't affect the classes - as far as I see. Can you advise me something to solve this problem?
1 reply
I'm writing some tests for a WS app, and I'm trying to start the app before the tests with
web.Program.BuildWebHost([||]).StartAsync(token)The problem is that http://localhost:5000/Scripts/WebSharper/webws.js?h=1100870762 always returns a 404.
This is when I run ASPNETCORE_ENVIRONMENT=Development dotnet test
I put similar code in Program.fs:
web.Program.BuildWebHost([||]).StartAsync(token) |> Async.AwaitTask |> Async.RunSynchronouslyand when I run it with ASPNETCORE_ENVIRONMENT=Development dotnet run, the problem doesn't occur. Any suggestion what could be the cause or how I can debug this?
10 replies
When I install the package FSharp.Control.FusionTasks (see github), I get errors in my client async code:
WebSharper error FS9001: Type not found in JavaScript compilation: Microsoft.FSharp.Control.AsyncExtensionsModulebecause the async extensions added by that package are not available in client side code. Is there a way to have these extensions only added to server side code's async{} ?
5 replies
Hi, trying to work with ExtJs by replicating https://try.websharper.com/snippet/0000XW. Can't get the nuget package to work at all (ExtCfg isn't recognised). Tried to make my own WIG bindings but got nowhere (https://forums.websharper.com/topic/91004). I managed to use the [<Stub>] technology to establish a binding to the library.
[<Stub>]
[<Name "Ext">]
[<Require(typeof<Resources.ExtAll>)>]
type Ext() =
static member Date : Date = Unchecked.defaultof<_>But I am not happy with this because I have to use a static member. In ExtJs, Ext is a singleton object, not a type/class per se. So my F# model does not really reflect the JS.
However if I try to use an instantiated object the binding fails, e.g. something like
[<Stub>]
[<Name "Ext">]
[<Require(typeof<Resources.ExtAll>)>]
let Ext : Ext= Unchecked.defaultof<_>
this would also mean that we restrict swagger schema to DU cases with simple arguments (so no records, unions, etc.)
I don't think so. Router/Sitelet.Infer supports nested types, unions with other unions and/or record for field types, so if we have logic thac creates OpenAPI json from an Endpoint type passed to Router/Sitelet.Infer, we can support all these.
so in this documentation https://developers.websharper.com/docs/v4.x/fs/sitelets you mean
type EndPoint =
| [<EndPoint "GET /">] Home
| [<EndPoint "/api">] Api of ApiEndPoint
and ApiEndPoint =
| [<EndPoint "GET /article">] GetArticle of int
| [<EndPoint "POST /article">] PostArticle of intexample is the nested DU. If we can generate OpenApi doc from only Infer's output Sitelet<'T>, it is possible to merge these into one OpenApiPaths
If I have an endpoint at url "/entities/352" which displays a page with a table listing entities of type 352, it would be great to easily publish a REST API so a
GET /entities/352.json or GET /api/entities/352 would return the list of these entities in json format. Same for a POST /entities/352.json or POST /api/entities/352 to create a new entry, etc.
4 replies
I wanted to switch my app to WS5, but although it runs fine when I run the app with dotnet run, executing the startup code generated by the WS template which eventually call IWebHost.Run(); I encounter a problem in my test code, where the test setup code starts up the app by calling IWebHost.StartAsync(token).
The error I get is:
Exception: Error in InlineControl at /home/rb/gits/myowndb/app/webui/Site.fs: 57.22-57.78: Couldn't find translation of method web.Client.languageDropdown. The method or type should have JavaScript attribute or a proxy, and the assembly needs to be compiled with WsFsc.exewhich refers this code calling the client helper and the client code here.
When I manually run the app in the test environment (ASPNETCORE_ENVIRONMENT=Test dotnet run) I don't get this error.
I also didn't get this problem when WS4. I'm using WS5 79.
Is the way I start the app in my test code not working anymore with WS5?
Microsoft.FSharp.Core.PrintfModule+PrintFormatToStringThenFail@1433.Invoke(string message) in F:\workspace\_work\1\s\src\fsharp\FSharp.Core\printf.fs
WebSharper.Web.FSharpInlineControl.WebSharper.IRequiresResources.Requires(Info meta)
Microsoft.FSharp.Collections.Internal+IEnumerator+map@75.DoMoveNext(ref b curr) in F:\workspace\_work\1\s\src\fsharp\FSharp.Core\seq.fs
Microsoft.FSharp.Collections.Internal+IEnumerator+MapEnumerator<T>.System.Collections.IEnumerator.MoveNext() in F:\workspace\_work\1\s\src\fsharp\FSharp.Core\seq.fs
Microsoft.FSharp.Core.CompilerServices.RuntimeHelpers.takeOuter@273<T, TResult>(ConcatEnumerator<T, TResult> x, Unit unitVar0) in F:\workspace\_work\1\s\src\fsharp\FSharp.Core\seqcore.fs
Microsoft.FSharp.Core.CompilerServices.RuntimeHelpers.takeInner@266<T, TResult>(ConcatEnumerator<T, TResult> x, Unit unitVar0) in F:\workspace\_work\1\s\src\fsharp\FSharp.Core\seqcore.fs
Microsoft.FSharp.Collections.SetTreeModule.mkFromEnumerator<a>(IComparer<a> comparer, SetTree<a> acc, IEnumerator<a> e) in F:\workspace\_work\1\s\src\fsharp\FSharp.Core\set.fs
Microsoft.FSharp.Collections.SetTreeModule.ofSeq<a>(IComparer<a> comparer, IEnumerable<a> c) in F:\workspace\_work\1\s\src\fsharp\FSharp.Core\set.fs
WebSharper.Sitelets.ContentModule.writeResources<a>(Context ctx, IEnumerable<a> controls, FSharpFunc<RenderLocation, HtmlTextWriter> tw)
WebSharper.Sitelets.ContentModule.getSeparateResourcesAndScripts<a>(Context ctx, IEnumerable<a> controls)
WebSharper.Sitelets.ContextExtensions.GetSeparateResourcesAndScripts<?>(Context this, IEnumerable<?> controls)
WebSharper.UI.Templating.Runtime.Server+write@813-2.Invoke(Context ctx, HtmlTextWriter w, bool r)
WebSharper.UI.Elt.Write(Context ctx, HtmlTextWriter h, bool res)
<StartupCode$WebSharper-UI>.$Doc.Server+Page@43-1.Invoke(Stream s)
WebSharper.Sitelets.ContentHelper+writeResponseAsync@37-1.Invoke(MemoryStream _arg1)
Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvoke<T, TResult>(AsyncActivation<T> ctxt, TResult result1, FSharpFunc<TResult, FSharpAsync<T>> part2) in F:\workspace\_work\1\s\src\fsharp\FSharp.Core\async.fs
<StartupCode$WebSharper-Sitelets>.$Content+ToResponse@56.Invoke(AsyncActivation<Response> ctxt)
<StartupCode$WebSharper-Sitelets>.$Content+Custom@439-1.Invoke(AsyncActivation<FSharpContent> ctxt)
WebSharper.Sitelets.ContentModule+FromContext@241-4.Invoke(AsyncActivation<FSharpContent> ctxt)
Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc<Unit, AsyncReturn> firstAction) in F:\workspace\_work\1\s\src\fsharp\FSharp.Core\async.fs
Microsoft.AspNetCore.Routing.EndpointMiddleware.<Invoke>g__AwaitRequestTask|6_0(Endpoint endpoint, Task requestTask, ILogger logger)
Microsoft.AspNetCore.Authorization.AuthorizationMiddleware.Invoke(HttpContext context)
Microsoft.AspNetCore.Authentication.AuthenticationMiddleware.Invoke(HttpContext context)
Microsoft.AspNetCore.Builder.Extensions.MapWhenMiddleware.Invoke(HttpContext context)
Microsoft.AspNetCore.Builder.Extensions.MapWhenMiddleware.Invoke(HttpContext context)
Microsoft.AspNetCore.Authentication.AuthenticationMiddleware.Invoke(HttpContext context)
Microsoft.AspNetCore.Localization.RequestLocalizationMiddleware.Invoke(HttpContext context)
Serilog.AspNetCore.RequestLoggingMiddleware.Invoke(HttpContext httpContext)
Microsoft.AspNetCore.Diagnostics.DeveloperExceptionPageMiddleware.Invoke(HttpContext context)otherwise we need to figure out how to best make assembly to look for sitelet metadata more flexible
let static logic for something as important as runtime metadata load is just a relic from ASP.NET 4x times, I am looking into reworking it to have is instantiated via ASP.NET Core configuration, and then testing will become more flexible. I have created ticket dotnet-websharper/core#1197
6 replies
@Jand42 : I have tried to load the assembly from my tests, but I still get an error. Here's my code in the app:
.UseWebSharper( fun builder -> builder.SiteletAssembly(Assembly.GetExecutingAssembly()) |> ignore)but when I run the tests, I get
Exception: Error in InlineControl at /home/rb/gits/myowndb/app/webui/Site.fs: 59.22-59.78: Couldn't find translation of method web.Client.languageDropdown. The method or type should have JavaScript attribute or a proxy, and the assembly needs to be compiled with WsFsc.exeIn the ouput, I see Loaded hosting startup assembly "webws", which is the same as when using WS4.
Do I load the assembly in a wrong way?
For completeness: I also have this warning reported, but I have a similar warning with WS4 too:
/home/rb/gits/myowndb/app/webui/tests/unknown(1,1): warning FS3186: An error occurred while reading the F# metadata node at position 1 in table 'itycons' of assembly 'WebSharper.Core.JavaScript, Version=5.0.0.0, Culture=neutral, PublicKeyToken=451ee5fa653b377d'. The node had no matching declaration. Please report this warning. You may need to recompile the F# assembly you are using. [/home/rb/gits/myowndb/app/webui/tests/PlaywrightTests.fsproj][<Test>]
let Test1 () =
let webAppFactory = new WebApplicationFactory<ClientServer.Startup>()
let client = webAppFactory.CreateClient()
async {
let! resp = client.GetAsync("/") |> Async.AwaitTask
resp.IsSuccessStatusCode |> should equal true
}
|> Async.StartAsTaskThen it was failing by default, but passed with your exact line
.UseWebSharper(fun builder -> builder.SiteletAssembly(Assembly.GetExecutingAssembly()) |> ignore)I could not build your repo fully, have not tried Docker, only in Win, missing database.test.json (is there a script?). Which of your tests is still failing?