module Shop.Util.Convert where

import Shop.Data.Item

infile = "../util/resources/shoplist-orig"
outfile = "../util/resources/shoplist-new"

main = 
   do contents <- readFile infile
      let items = lines contents
      let newList = createItemList items
      saveItemList outfile newList