Pattern matching helper for C#

mausch · Jan 10, 2014 · ec7d7d8 · ec7d7d8
1 parent 0981dba
commit ec7d7d8
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/EdmundsNet/Vehicles.fs b/EdmundsNet/Vehicles.fs
@@ -1,5 +1,7 @@
 namespace EdmundsNet.Vehicles
 
+open System
+
 [<RequireQualifiedAccess>]
 type State = New | Used | Future
 
@@ -119,6 +121,13 @@ type GeneralEquipment =
 | Equipment of Equipment 
 | Engine of Engine 
 | Transmission of Transmission
+with 
+    member x.Match(equipment: Func<_,_>, engine: Func<_,_>, transmission: Func<_,_>) =
+        match x with
+        | Equipment e -> equipment.Invoke e
+        | Engine e -> engine.Invoke e
+        | Transmission t -> transmission.Invoke t
+
 
 type Equipments = {
     Equipment: GeneralEquipment list