insertAccount :: Connection -> JsonAccount -> IO Integer
insertAccount conn jsonAccount = do
    let balance = (truncate $ value jsonAccount * 100) :: Integer
    let accountName = (toSql . name) jsonAccount

    run conn "INSERT INTO account (balance, name) VALUES (?, ?)" [toSql balance, toSql accountName]
insertAccount :: Connection -> JsonAccount -> IO Integer
insertAccount conn jsonAccount = do
    let balance = (truncate $ value jsonAccount * 100) :: Integer
    let accountName = (toSql . name) jsonAccount

    run conn "INSERT INTO account (balance, name) VALUES (?, ?)" [toSql balance, toSql accountName]
insertAccount conn jsonAccount = do
    let balance = (truncate $ value jsonAccount * 100) :: Integer
    let accountName = (toSql . name) jsonAccount

    run conn "INSERT INTO account (balance, name) VALUES (?, ?)" [toSql balance, toSql accountName]