insertBookCopy :: Connection -> Int -> IO ()
insertBookCopy c isbn = do
  rt <- execute c [sql| INSERT INTO table_book_instance
                      ( key_uuid, key_isbn, key_status)
                      VALUES (uuid_generate_v4(),?,'a---')
                      |] (Only (printf "%010d" isbn :: String))
  putStrLn $ "insert " ++ show rt ++ " book instance(s)"
  return ()
insertBookCopy :: Connection -> Int -> IO ()
insertBookCopy c isbn = do
  rt <- execute c [sql| INSERT INTO table_book_instance
                      ( key_uuid, key_isbn, key_status)
                      VALUES (uuid_generate_v4(),?,'a---')
                      |] (Only (printf "%010d" isbn :: String))
  putStrLn $ "insert " ++ show rt ++ " book instance(s)"
  return ()
insertBookCopy c isbn = do
  rt <- execute c [sql| INSERT INTO table_book_instance
                      ( key_uuid, key_isbn, key_status)
                      VALUES (uuid_generate_v4(),?,'a---')
                      |] (Only (printf "%010d" isbn :: String))
  putStrLn $ "insert " ++ show rt ++ " book instance(s)"
  return ()