main :: IO ()
-- main = savePurchases "test.db" purchases >> showPurchases
main = do
  savePurchases "test.db" purchases
  ps <- showPurchases
  let pps = Prelude.concat ps
  print pps
main :: IO ()
main = do
  savePurchases "test.db" purchases
  ps <- showPurchases
  let pps = Prelude.concat ps
  print pps
main = do
  savePurchases "test.db" purchases
  ps <- showPurchases
  let pps = Prelude.concat ps
  print pps