object-closures-3.fs

module CompositionRoot

    let findPlayerNames' = 
        findPlayerNames "Data Source=localhost; Initial Catalog=MyDb; Integrated Security = True"
  
 module Program
 
     let main _ =
        // Database queried once
        let playerNames1 = findPlayerNames' () |> Seq.toList

        // Database queried once again
        // Same connection string is used due to closure created
        // The function findPlayerNames is 'partially applied'
        let playerNames2 = findPlayerNames' () |> Seq.toList

        0