27 lines
580 B
Plaintext
27 lines
580 B
Plaintext
module Person = {
|
|
type t = Teacher | Director | Student(string)
|
|
|
|
let greeting = person =>
|
|
switch person {
|
|
| Teacher => "Hey Professor!"
|
|
| Director => "Hello Director."
|
|
| Student("Richard") => "Still here Ricky?"
|
|
| Student(other) => "Hey, " ++ other ++ "."
|
|
}
|
|
}
|
|
|
|
module Button = {
|
|
@react.component
|
|
let make = (~count: int, ~onClick) => {
|
|
let times = switch count {
|
|
| 1 => "once"
|
|
| 2 => "twice"
|
|
| n => Belt.Int.toString(n) ++ " times"
|
|
}
|
|
|
|
let msg = "Click me " ++ times
|
|
|
|
<button onClick> {msg->React.string} </button>
|
|
}
|
|
}
|