lineToPayment :: String -> Payment
lineToPayment line =
  let (val:cat:desc:_) = splitOn comma line
      paidValue        = read val :: Money
      categ            = findCategory cat
  in Payment { value = paidValue, category = categ, description = desc }
lineToPayment :: String -> Payment
lineToPayment line =
  let (val:cat:desc:_) = splitOn comma line
      paidValue        = read val :: Money
      categ            = findCategory cat
  in Payment { value = paidValue, category = categ, description = desc }
lineToPayment line =
  let (val:cat:desc:_) = splitOn comma line
      paidValue        = read val :: Money
      categ            = findCategory cat
  in Payment { value = paidValue, category = categ, description = desc }