wip: currently rewriting the project as a full stack application
tangled.org/kacaii.dev/sigo
gleam
:recyle: define functions outside of the global scope
+20
-21
+20
-21
src/app/domain/role/get_role_list.gleam
+20
-21
src/app/domain/role/get_role_list.gleam
···
13
13
/// ## Response
14
14
///
15
15
/// ```json
16
-
/// {["desenvolvedor", "bombeiro", "capitão", "analista"]}
16
+
/// ["desenvolvedor", "bombeiro", "capitão", "analista"]
17
17
/// ```
18
18
///
19
19
pub fn handle_request(
···
28
28
}
29
29
}
30
30
31
-
/// Gathering the role list can fail
32
31
type GetRoleListError {
33
-
/// An error occurred while querying the DataBase
32
+
/// Failed to query the DataBase
34
33
DataBase(pog.QueryError)
35
34
}
36
35
···
47
46
|> result.map_error(DataBase),
48
47
)
49
48
49
+
let enum_to_role = fn(role: sql.UserRoleEnum) {
50
+
case role {
51
+
sql.Admin -> role.Admin
52
+
sql.Analyst -> role.Analyst
53
+
sql.Captain -> role.Captain
54
+
sql.Developer -> role.Developer
55
+
sql.Firefighter -> role.Firefighter
56
+
sql.Sargeant -> role.Sargeant
57
+
}
58
+
}
59
+
60
+
let row_to_json = fn(row: sql.QueryAvailableUserRolesRow) {
61
+
row.available_role
62
+
|> enum_to_role()
63
+
|> role.to_string_pt_br()
64
+
|> json.string
65
+
}
66
+
50
67
returned.rows
51
68
|> json.array(row_to_json)
52
69
|> json.to_string
53
70
}
54
-
55
-
fn row_to_json(row: sql.QueryAvailableUserRolesRow) -> json.Json {
56
-
row.available_role
57
-
|> enum_to_role()
58
-
|> role.to_string_pt_br()
59
-
|> json.string
60
-
}
61
-
62
-
fn enum_to_role(user_role: sql.UserRoleEnum) -> role.Role {
63
-
case user_role {
64
-
sql.Admin -> role.Admin
65
-
sql.Analyst -> role.Analyst
66
-
sql.Captain -> role.Captain
67
-
sql.Developer -> role.Developer
68
-
sql.Firefighter -> role.Firefighter
69
-
sql.Sargeant -> role.Sargeant
70
-
}
71
-
}