-- Render section into a sequence of lines
renderSection :: Int -> RecipeFieldLengths -> Section -> [String]
renderSection sigFigs lengths (Section {sectionName = name, ingredients = xs}) =
  [dashes lengths, name, dashes lengths] ++
    map (render sigFigs lengths) xs
renderSection :: Int -> RecipeFieldLengths -> Section -> [String]
renderSection sigFigs lengths (Section {sectionName = name, ingredients = xs}) =
  [dashes lengths, name, dashes lengths] ++
    map (render sigFigs lengths) xs
renderSection sigFigs lengths (Section {sectionName = name, ingredients = xs}) =
  [dashes lengths, name, dashes lengths] ++
    map (render sigFigs lengths) xs