1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

        type WBdata = {country : int; indicator : string}

        let dataSelector (cntry : WBdata)=
            Piglet.Return (fun c i -> {country = c; indicator = i} )
            <*> Piglet.Yield cntry.country
            <*> Piglet.Yield cntry.indicator
        
        let renderCountryPiglet (countryS : Stream<int>) (indicatorS : Stream<string>) =
            let countries = Remoting.countryNameList()
            let indicators = Remoting.indicatorNameList()
            let wbDataS = Stream.Map2 (fun x y -> {country = x; indicator = y}) countryS indicatorS
            Div [
                Div [
                    Div [Controls.Select countryS countries]
                    Div [Controls.Select indicatorS indicators]
                    Div [] |> Controls.Show wbDataS (fun x -> [Chart ( Remoting.getCountry x.country x.indicator)])
                    ] 
                ]

        let countryForm () =
            dataSelector {country = Remoting.initialCountry(); indicator = Remoting.initialIndicator()}
            |> Piglet.Render renderCountryPiglet