Test Push

This commit is contained in:
2021-11-09 22:11:39 +10:00
parent c236e8a89a
commit cbec4a5c5c
18 changed files with 124 additions and 92 deletions

View File

@@ -1,14 +1,13 @@
module Clerk
open System
open Dapper.FSharp
open DredgeFramework
open Renci.SshNet
open DredgePos
open Thoth.Json.Net
open Types
let mutable loginCookie = ""
type clerk = {id: int; clerk_name: string; clerk_login_code: int; clerk_usergroup: int}
let clerk_decoder : Decoder<clerk> =
Decode.object
(fun get ->