recipeFieldLengths :: Int -> Recipe -> RecipeFieldLengths
recipeFieldLengths sigFigs r = maxFieldLengths $
  map (sectionFieldLengths sigFigs) r
recipeFieldLengths :: Int -> Recipe -> RecipeFieldLengths
recipeFieldLengths sigFigs r = maxFieldLengths $
  map (sectionFieldLengths sigFigs) r
recipeFieldLengths sigFigs r = maxFieldLengths $
  map (sectionFieldLengths sigFigs) r