toCsv :: Match -> String
toCsv m = Data.List.intercalate "," [first_team m, second_team m,
                                     show $ first_team_goals m,
                                     show $ second_team_goals m]
toCsv :: Match -> String
toCsv m = Data.List.intercalate "," [first_team m, second_team m,
                                     show $ first_team_goals m,
                                     show $ second_team_goals m]
toCsv m = Data.List.intercalate "," [first_team m, second_team m,
                                     show $ first_team_goals m,
                                     show $ second_team_goals m]