sectionFieldLengths :: Int -> Section -> RecipeFieldLengths
sectionFieldLengths sigFigs Section {sectionName = n, ingredients = is} =
  if length n <= a + b + c + 2
     then (a, b, c)
     else (a, length n - a - c - 2, c)
  where
    (a, b, c) = maxFieldLengths $ map (ingredientFieldLengths sigFigs) is
sectionFieldLengths :: Int -> Section -> RecipeFieldLengths
sectionFieldLengths sigFigs Section {sectionName = n, ingredients = is} =
  if length n <= a + b + c + 2
     then (a, b, c)
     else (a, length n - a - c - 2, c)
  where
    (a, b, c) = maxFieldLengths $ map (ingredientFieldLengths sigFigs) is
sectionFieldLengths sigFigs Section {sectionName = n, ingredients = is} =
  if length n <= a + b + c + 2
     then (a, b, c)
     else (a, length n - a - c - 2, c)
  where
    (a, b, c) = maxFieldLengths $ map (ingredientFieldLengths sigFigs) is