👩🚒 Firefighters API written in Gleam!
lustre
gleam
:label: add request builder for the client page
+71
-5
+34
-5
client/src/client/page/signup.gleam
+34
-5
client/src/client/page/signup.gleam
···
9
9
import lustre/element/html
10
10
import lustre/event
11
11
import rsvp
12
+
import shared/contract/signup as contract
12
13
import shared/role
13
14
import shared/session
14
15
···
33
34
user_is_active: Bool,
34
35
loading: Bool,
35
36
text_message: String,
37
+
)
38
+
}
39
+
40
+
fn build_request(model: Model) -> contract.RequestBody {
41
+
contract.RequestBody(
42
+
name: model.user_name,
43
+
role: model.user_role,
44
+
email: model.user_email,
45
+
password: model.user_password,
46
+
confirm_password: model.user_confirm_password,
47
+
is_active: model.user_is_active,
36
48
)
37
49
}
38
50
···
88
100
}
89
101
90
102
UserSentRequest -> {
91
-
todo as "build and send request"
103
+
let body =
104
+
build_request(model)
105
+
|> contract.request_to_json()
106
+
107
+
let effect =
108
+
rsvp.expect_ok_response(ServerSentResponse)
109
+
|> rsvp.post("api/signup", body, _)
92
110
93
-
let model = Model(..model, loading: True)
94
-
#(model, todo as "rsvp_effect")
111
+
#(Model(..model, loading: True), effect)
95
112
}
96
113
97
-
ServerSentResponse(Ok(_)) -> todo
98
-
ServerSentResponse(Error(reason)) -> todo
114
+
ServerSentResponse(Ok(resp)) -> #(
115
+
Model(..model, loading: False, text_message: resp.body),
116
+
effect.none(),
117
+
)
118
+
119
+
ServerSentResponse(Error(reason)) -> {
120
+
let text_message = case reason {
121
+
rsvp.HttpError(resp) -> resp.body
122
+
rsvp.NetworkError -> "Connection not available"
123
+
_ -> "An error occurred"
124
+
}
125
+
126
+
#(Model(..model, loading: False, text_message:), effect.none())
127
+
}
99
128
}
100
129
}
101
130