app [main!] { pf: platform "./platform/main.roc" }

import pf.Stdout
import pf.Stderr

# -> 8
extract_ok_u64_works : U64
extract_ok_u64_works = {
  list: List(U64)
  list = [8, 7]

  match(list.first()) {
    Err(_) => 0
    Ok(first) => first
  }
}

# -> Ok(8)
print_ok_u8_works : Try(U8, [ListWasEmpty])
print_ok_u8_works = {
  list: List(U8)
  list = [8, 7]

  list.first()
}

# -> <unsupported>
extract_ok_u8_fails : U8
extract_ok_u8_fails = {
  list: List(U8)
  list = [8, 7]

  match(list.first()) {
    Err(_) => 0
    Ok(first) => first
  }
}

main! = || {
  dbg extract_ok_u64_works
  dbg print_ok_u8_works
  dbg extract_ok_u8_fails
}