@@ -47,17 +47,17 @@ type Request =
47
47
let validateName req =
48
48
match req.Name with
49
49
| null -> Error "No name found."
50
- | String.Empty -> Error "Name is empty."
50
+ | "" -> Error "Name is empty."
51
51
| "bananas" -> Error "Bananas is not a name."
52
52
| _ -> Ok req
53
53
54
54
// Similarly, define some email validation logic.
55
55
let validateEmail req =
56
56
match req.Email with
57
57
| null -> Error "No email found."
58
- | String.Empty -> Error "Email is empty."
58
+ | "" -> Error "Email is empty."
59
59
| s when s.EndsWith("bananas.com") -> Error "No email from bananas.com is allowed."
60
- | _ -> OK req
60
+ | _ -> Ok req
61
61
62
62
let validateRequest reqResult =
63
63
reqResult
@@ -67,16 +67,16 @@ let validateRequest reqResult =
67
67
let test() =
68
68
// Now, create a Request and pattern match on the result.
69
69
let req1 = { Name = "Phillip"; Email = "phillip@contoso.biz" }
70
- let res1 = validateRequest (OK req1)
70
+ let res1 = validateRequest (Ok req1)
71
71
match res1 with
72
- | Ok req -> printfn "My request was valid! Name: %s Email %s" req1 .Name req1 .Email
72
+ | Ok req -> printfn "My request was valid! Name: %s Email %s" req .Name req .Email
73
73
| Error e -> printfn "Error: %s" e
74
- // Prints " "My request was valid! Name: Phillip Email: phillip@consoto.biz"
74
+ // Prints: "My request was valid! Name: Phillip Email: phillip@consoto.biz"
75
75
76
76
let req2 = { Name = "Phillip"; Email = "phillip@bananas.com" }
77
- let res2 = validateRequest (OK req2)
77
+ let res2 = validateRequest (Ok req2)
78
78
match res2 with
79
- | Ok req -> printfn "My request was valid! Name: %s Email %s" req1 .Name req1 .Email
79
+ | Ok req -> printfn "My request was valid! Name: %s Email %s" req .Name req .Email
80
80
| Error e -> printfn "Error: %s" e
81
81
// Prints: "Error: No email from bananas.com is allowed."
82
82
0 commit comments