setupTable :: Connection -> IO (Maybe Int64)
setupTable = handleViolations $ \cn ->
  execute_ cn "CREATE TABLE books (\
              \ isbn varchar(20) PRIMARY KEY,\
              \ title varchar(256) NOT NULL,\
              \ author varchar(256) NOT NULL,\
              \ owned smallint DEFAULT 0,\
              \ available smallint DEFAULT 0\
              \ )"
setupTable :: Connection -> IO (Maybe Int64)
setupTable = handleViolations $ \cn ->
  execute_ cn "CREATE TABLE books (\
              \ isbn varchar(20) PRIMARY KEY,\
              \ title varchar(256) NOT NULL,\
              \ author varchar(256) NOT NULL,\
              \ owned smallint DEFAULT 0,\
              \ available smallint DEFAULT 0\
              \ )"
setupTable = handleViolations $ \cn ->
  execute_ cn "CREATE TABLE books (\
              \ isbn varchar(20) PRIMARY KEY,\
              \ title varchar(256) NOT NULL,\
              \ author varchar(256) NOT NULL,\
              \ owned smallint DEFAULT 0,\
              \ available smallint DEFAULT 0\
              \ )"