getTransactions' :: IO [Transaction]
getTransactions' = do
  ts <- getTransactions databasePath
  -- putStrLn $ show (length ts)
  return ts
getTransactions' :: IO [Transaction]
getTransactions' = do
  ts <- getTransactions databasePath
  -- putStrLn $ show (length ts)
  return ts
getTransactions' = do
  ts <- getTransactions databasePath
  -- putStrLn $ show (length ts)
  return ts