-- Render ingredient record into a line
render :: Int -> RecipeFieldLengths -> IngredientRecord -> String
render sigFigs (x, y, z) record =
    formatToString
      ((right x ' ' %. string) % " " %
       (left y ' ' %. string) % " " %
       (right z ' ' %. string))
      (ingredientName record)
      (renderAmount sigFigs $ amount record)
      (unit record)
render :: Int -> RecipeFieldLengths -> IngredientRecord -> String
render sigFigs (x, y, z) record =
    formatToString
      ((right x ' ' %. string) % " " %
       (left y ' ' %. string) % " " %
       (right z ' ' %. string))
      (ingredientName record)
      (renderAmount sigFigs $ amount record)
      (unit record)
render sigFigs (x, y, z) record =
    formatToString
      ((right x ' ' %. string) % " " %
       (left y ' ' %. string) % " " %
       (right z ' ' %. string))
      (ingredientName record)
      (renderAmount sigFigs $ amount record)
      (unit record)