module Hello.Ditto exports (..);

import (core) String;
import (node-readline) Readline (question);
import (js-console) Console;

type Greeting =
  | Generic
  | Name(String);

greeting_to_string = (greeting: Greeting): String ->
  match greeting with
  | Generic -> "Hello there!"
  | Name(name) -> "Hello there, ${name}!";

main = do {
  response <- question("What's your name?");
  let greeting =
    if String.is_empty(response) then
      Generic
    else
      Name(response);

  greeting_to_string(greeting) |> Console.log
};