Skip to content

Instantly share code, notes, and snippets.

@amw-zero

amw-zero/option_forwarding.ml

Created February 7, 2024 02:56
Show Gist options
  • Save amw-zero/2956b0ef7d5ef1cdab4a34b7154e46d7 to your computer and use it in GitHub Desktop.
Save amw-zero/2956b0ef7d5ef1cdab4a34b7154e46d7 to your computer and use it in GitHub Desktop.
Download ZIP
Passing an optional through
Raw
option_forwarding.ml
let g o = match o with
| None -> 0
| Some x -> x
let f o = match o with
| None -> 0
| Some x -> g o
let _ = f (Some 5)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment