create-fff-app 0.1.9 → 0.1.11

package/template/src/server/Workflows/Employees/EmployeeWorkflows.fs

@@ -1,86 +0,0 @@
-module App.Server.Workflows.Employees
-
-open FffStack.Server
-open Fable.Core
-open Fable.Core.JsInterop
-open App.Server.Domain.Employees
-
-[<Emit("crypto.randomUUID()")>]
-let private newId () : string = jsNative
-
-let getAll (db: ID1Database) : JS.Promise<Employee list> =
-    queryAll<Employee> db
-        "SELECT id, name, email, department, role, status, joined_at as joinedAt \
-         FROM employees ORDER BY name ASC"
-        [||]
-
-let getById (db: ID1Database) (id: string) : JS.Promise<Employee option> =
-    queryOne<Employee> db
-        "SELECT id, name, email, department, role, status, joined_at as joinedAt \
-         FROM employees WHERE id = ?"
-        [| id |]
-
-let create
-    (db:         ID1Database)
-    (rawName:    string)
-    (rawEmail:   string)
-    (department: string)
-    (role:       string)
-    (status:     string)
-    : JS.Promise<Result<Employee, string>> =
-    promise {
-        match EmployeeName.create rawName, WorkEmail.create rawEmail with
-        | Error e, _         -> return Error e
-        | _, Error e         -> return Error e
-        | Ok name, Ok email  ->
-            let id  = newId ()
-            let n   = EmployeeName.value name
-            let em  = WorkEmail.value email
-            let dep = department.Trim()
-            let rol = role.Trim()
-            let st  = if status = "inactive" then "inactive" else "active"
-            do! execute db
-                    "INSERT INTO employees (id, name, email, department, role, status, joined_at) \
-                     VALUES (?, ?, ?, ?, ?, ?, date('now'))"
-                    [| id; n; em; dep; rol; st |]
-                |> Promise.map ignore
-            return Ok { id = id; name = n; email = em; department = dep
-                        role = rol; status = st; joinedAt = "" }
-    }
-
-let update
-    (db:         ID1Database)
-    (id:         string)
-    (rawName:    string)
-    (rawEmail:   string)
-    (department: string)
-    (role:       string)
-    (status:     string)
-    : JS.Promise<Result<Employee, string>> =
-    promise {
-        match EmployeeName.create rawName, WorkEmail.create rawEmail with
-        | Error e, _         -> return Error e
-        | _, Error e         -> return Error e
-        | Ok name, Ok email  ->
-            let n   = EmployeeName.value name
-            let em  = WorkEmail.value email
-            let dep = department.Trim()
-            let rol = role.Trim()
-            let st  = if status = "inactive" then "inactive" else "active"
-            do! execute db
-                    "UPDATE employees SET name = ?, email = ?, department = ?, role = ?, status = ? WHERE id = ?"
-                    [| n; em; dep; rol; st; id |]
-                |> Promise.map ignore
-            return Ok { id = id; name = n; email = em; department = dep
-                        role = rol; status = st; joinedAt = "" }
-    }
-
-let delete (db: ID1Database) (id: string) : JS.Promise<bool> =
-    promise {
-        match! getById db id with
-        | None -> return false
-        | Some _ ->
-            do! execute db "DELETE FROM employees WHERE id = ?" [| id |]
-                |> Promise.map ignore
-            return true
-    }