- to_tuple :: Maybe MostLapsLeading -> (Maybe Int, Maybe String, Maybe Int)
- to_tuple Nothing = (Nothing, Nothing, Nothing)
- to_tuple (Just (MostLapsLeading Nothing _ _)) = (Nothing, Nothing, Nothing)
- to_tuple (Just (MostLapsLeading _ Nothing _)) = (Nothing, Nothing, Nothing)
- to_tuple (Just (MostLapsLeading _ _ Nothing)) = (Nothing, Nothing, Nothing)
- to_tuple (Just m) = (db_most_laps_leading_driver_id m,
- db_most_laps_leading_driver m,
- db_most_laps_leading_number_of_laps m)
+ to_tuple' :: Maybe MostLapsLeading -> (Maybe Int, Maybe String, Maybe Int)
+ to_tuple' Nothing = (Nothing, Nothing, Nothing)
+ to_tuple' (Just (MostLapsLeading Nothing _ _)) = (Nothing, Nothing, Nothing)
+ to_tuple' (Just (MostLapsLeading _ Nothing _)) = (Nothing, Nothing, Nothing)
+ to_tuple' (Just (MostLapsLeading _ _ Nothing)) = (Nothing, Nothing, Nothing)
+ to_tuple' (Just m) = (db_most_laps_leading_driver_id m,
+ db_most_laps_leading_driver m,
+ db_most_laps_leading_number_of_laps m)