Postgres from f#

getusers.fs

// Using the super easy to use https://github.com/Zaid-Ajaj/Npgsql.FSharp

open System
open Npgsql.FSharp

type User = {
    UserId : int
    UserName: string
}

[<EntryPoint>]
let main _ =
    let connectionString : string = 
        Sql.host "localhost"
        |> Sql.port 5432
        |> Sql.username "postgres"
        |> Sql.password "password"
        |> Sql.database "postgres"
        |> Sql.str

    let mapUserRowToUser row = 
        match row with
            | [ "id", Int id
                "username", String uname ] -> 
            let user =  
                { UserId = id; 
                UserName = uname; }
            Some user
            | _ -> None

    let getAllUsers =
        connectionString
        |> Sql.connect
        |> Sql.query "SELECT id, username FROM users"
        |> Sql.executeTable
        |> Sql.mapEachRow mapUserRowToUser
            
    getAllUsers |> Seq.iter (printfn "%A")