showPurchases :: IO [[Purchase]]
showPurchases = runResourceT $
  B.sourceFile "test.db" $$ B.lines =$ displayP =$ L.consume
showPurchases :: IO [[Purchase]]
showPurchases = runResourceT $
  B.sourceFile "test.db" $$ B.lines =$ displayP =$ L.consume
showPurchases = runResourceT $
  B.sourceFile "test.db" $$ B.lines =$ displayP =$ L.consume