FSharp Bank Kata - pattern matching

gistfile1.fs

let withdraw amount currency {Amount = (oldAmount, _)} =
    match oldAmount - amount with
    | newAmount when newAmount < 0 -> Failure("This bank account cannot be overdrawn.")
    | newAmount -> Success {Amount = (oldAmount - amount, USD)}