Custom dynamic response with Suave?












1















I want to build a simple counter with Suave.



[<EntryPoint>]
let main argv =

let mutable counter = 0;

let app =
choose
[
GET
>=> choose
[
path "/" >=> OK "Hello, world. ";
path "/count" >=> OK (string counter)
]
POST
>=> choose
[
path "/increment"
>=> (fun context -> async {
counter <- counter + 1
return Some context
})
]
]

startWebServer defaultConfig app
0


However, with my current solution, the count at /count never updates.



I think this is because the WebPart is computed when the app is launched, instead of for each request.



What is the best way to achieve this in Suave?










share|improve this question



























    1















    I want to build a simple counter with Suave.



    [<EntryPoint>]
    let main argv =

    let mutable counter = 0;

    let app =
    choose
    [
    GET
    >=> choose
    [
    path "/" >=> OK "Hello, world. ";
    path "/count" >=> OK (string counter)
    ]
    POST
    >=> choose
    [
    path "/increment"
    >=> (fun context -> async {
    counter <- counter + 1
    return Some context
    })
    ]
    ]

    startWebServer defaultConfig app
    0


    However, with my current solution, the count at /count never updates.



    I think this is because the WebPart is computed when the app is launched, instead of for each request.



    What is the best way to achieve this in Suave?










    share|improve this question

























      1












      1








      1








      I want to build a simple counter with Suave.



      [<EntryPoint>]
      let main argv =

      let mutable counter = 0;

      let app =
      choose
      [
      GET
      >=> choose
      [
      path "/" >=> OK "Hello, world. ";
      path "/count" >=> OK (string counter)
      ]
      POST
      >=> choose
      [
      path "/increment"
      >=> (fun context -> async {
      counter <- counter + 1
      return Some context
      })
      ]
      ]

      startWebServer defaultConfig app
      0


      However, with my current solution, the count at /count never updates.



      I think this is because the WebPart is computed when the app is launched, instead of for each request.



      What is the best way to achieve this in Suave?










      share|improve this question














      I want to build a simple counter with Suave.



      [<EntryPoint>]
      let main argv =

      let mutable counter = 0;

      let app =
      choose
      [
      GET
      >=> choose
      [
      path "/" >=> OK "Hello, world. ";
      path "/count" >=> OK (string counter)
      ]
      POST
      >=> choose
      [
      path "/increment"
      >=> (fun context -> async {
      counter <- counter + 1
      return Some context
      })
      ]
      ]

      startWebServer defaultConfig app
      0


      However, with my current solution, the count at /count never updates.



      I think this is because the WebPart is computed when the app is launched, instead of for each request.



      What is the best way to achieve this in Suave?







      f# suave






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked Dec 31 '18 at 12:34









      sdgfsdhsdgfsdh

      8,27083996




      8,27083996
























          1 Answer
          1






          active

          oldest

          votes


















          2














          You are right in the assumption that Webparts are values, so computed once. (See this).



          You need to use a closure to get what you want:



          path "/count" >=> (fun ctx ->
          async {
          let c = counter in return! OK (string c) ctx
          })





          share|improve this answer























            Your Answer






            StackExchange.ifUsing("editor", function () {
            StackExchange.using("externalEditor", function () {
            StackExchange.using("snippets", function () {
            StackExchange.snippets.init();
            });
            });
            }, "code-snippets");

            StackExchange.ready(function() {
            var channelOptions = {
            tags: "".split(" "),
            id: "1"
            };
            initTagRenderer("".split(" "), "".split(" "), channelOptions);

            StackExchange.using("externalEditor", function() {
            // Have to fire editor after snippets, if snippets enabled
            if (StackExchange.settings.snippets.snippetsEnabled) {
            StackExchange.using("snippets", function() {
            createEditor();
            });
            }
            else {
            createEditor();
            }
            });

            function createEditor() {
            StackExchange.prepareEditor({
            heartbeatType: 'answer',
            autoActivateHeartbeat: false,
            convertImagesToLinks: true,
            noModals: true,
            showLowRepImageUploadWarning: true,
            reputationToPostImages: 10,
            bindNavPrevention: true,
            postfix: "",
            imageUploader: {
            brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
            contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
            allowUrls: true
            },
            onDemand: true,
            discardSelector: ".discard-answer"
            ,immediatelyShowMarkdownHelp:true
            });


            }
            });














            draft saved

            draft discarded


















            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53987587%2fcustom-dynamic-response-with-suave%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown

























            1 Answer
            1






            active

            oldest

            votes








            1 Answer
            1






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            2














            You are right in the assumption that Webparts are values, so computed once. (See this).



            You need to use a closure to get what you want:



            path "/count" >=> (fun ctx ->
            async {
            let c = counter in return! OK (string c) ctx
            })





            share|improve this answer




























              2














              You are right in the assumption that Webparts are values, so computed once. (See this).



              You need to use a closure to get what you want:



              path "/count" >=> (fun ctx ->
              async {
              let c = counter in return! OK (string c) ctx
              })





              share|improve this answer


























                2












                2








                2







                You are right in the assumption that Webparts are values, so computed once. (See this).



                You need to use a closure to get what you want:



                path "/count" >=> (fun ctx ->
                async {
                let c = counter in return! OK (string c) ctx
                })





                share|improve this answer













                You are right in the assumption that Webparts are values, so computed once. (See this).



                You need to use a closure to get what you want:



                path "/count" >=> (fun ctx ->
                async {
                let c = counter in return! OK (string c) ctx
                })






                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered Dec 31 '18 at 13:20









                nilekirknilekirk

                55655




                55655
































                    draft saved

                    draft discarded




















































                    Thanks for contributing an answer to Stack Overflow!


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid



                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.


                    To learn more, see our tips on writing great answers.




                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function () {
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53987587%2fcustom-dynamic-response-with-suave%23new-answer', 'question_page');
                    }
                    );

                    Post as a guest















                    Required, but never shown





















































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown

































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown







                    Popular posts from this blog

                    Mossoró

                    Error while reading .h5 file using the rhdf5 package in R

                    Pushsharp Apns notification error: 'InvalidToken'