dredgy/DredgePos
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Floorplan Updated

Browse Source
This commit is contained in:
Josh
2021-11-09 17:16:29 +10:00
parent 49fcdabf0f
commit 61481ad87c
37 changed files with 1862 additions and 1762 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Clerk.module.fs
View File

@@ -8,12 +8,12 @@ open Thoth.Json.Net
let mutable loginCookie = ""
type clerk = {clerk_id: int; clerk_name: string; clerk_login_code: int; clerk_usergroup: int}
type clerk = {id: int; clerk_name: string; clerk_login_code: int; clerk_usergroup: int}
let clerk_decoder : Decoder<clerk> =
Decode.object
(fun get ->
{
clerk_id = get.Required.Field "clerk_id" Decode.int
id = get.Required.Field "clerk_id" Decode.int
clerk_name = get.Required.Field "clerk_name" Decode.string
clerk_login_code = get.Required.Field "clerk_login_code" Decode.int
clerk_usergroup = get.Required.Field "clerk_usergroup" Decode.int