ingredientFieldLengths :: Int -> IngredientRecord -> RecipeFieldLengths
ingredientFieldLengths sigFigs IngredientRecord
  {ingredientName = i, amount = a, unit = u} =
    (length i, length $ renderAmount sigFigs a, length u)
ingredientFieldLengths :: Int -> IngredientRecord -> RecipeFieldLengths
ingredientFieldLengths sigFigs IngredientRecord
  {ingredientName = i, amount = a, unit = u} =
    (length i, length $ renderAmount sigFigs a, length u)
ingredientFieldLengths sigFigs IngredientRecord
  {ingredientName = i, amount = a, unit = u} =
    (length i, length $ renderAmount sigFigs a, length u)