refactor getExpenses

Author: tamizhvendan

fsharp/AddingMeaningToPrimitiveTypes/WithStaticMembers.fsx

@@ -42,7 +42,9 @@ let balance transactions =
   |> List.sum
 
 
-let rec private getExpenses' transactions expenses =
+let rec getExpenses transactions =
+  getExpenses' transactions []
+and getExpenses' transactions expenses =
   match transactions with
   | [] -> expenses
   | x :: xs -> 
@@ -52,9 +54,6 @@ let rec private getExpenses' transactions expenses =
       |> getExpenses' xs
     | _ -> getExpenses' xs expenses
 
-let getExpenses transactions =
-  getExpenses' transactions []
-
 let getExpenditure expenseCategory transactions =
   getExpenses transactions
   |> List.filter (fun e -> e.Category = expenseCategory)

fsharp/AddingMeaningToPrimitiveTypes/WithoutStaticMembers.fsx

@@ -40,7 +40,11 @@ let balance transactions =
   |> Money
 
 
-let rec private getExpenses' transactions expenses =
+
+
+let rec getExpenses transactions =
+  getExpenses' transactions []
+and getExpenses' transactions expenses =
   match transactions with
   | [] -> expenses
   | x :: xs -> 
@@ -50,9 +54,6 @@ let rec private getExpenses' transactions expenses =
       |> getExpenses' xs
     | _ -> getExpenses' xs expenses
 
-let getExpenses transactions =
-  getExpenses' transactions []
-
 let getExpenditure expenseCategory transactions =
   getExpenses transactions
   |> List.filter (fun e -> e.Category = expenseCategory)