From 9b48ce2b6811cdca01360ba7d631dbf00bda22c7 Mon Sep 17 00:00:00 2001 From: Rene Vergara Date: Mon, 12 Aug 2024 08:58:45 -0500 Subject: [PATCH] Remove comments from QuasiQuote --- src/DB.hs | 220 +++++++++++++++++++++++++++--------------------------- 1 file changed, 110 insertions(+), 110 deletions(-) diff --git a/src/DB.hs b/src/DB.hs index bea93e1..44d8f42 100644 --- a/src/DB.hs +++ b/src/DB.hs @@ -39,161 +39,161 @@ share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase| ZgoBlock - block_id Int --Block Id number - block_confs Int default=0 -- Block confirnations - block_network String default="" -- Block Network - block_height Int default=0 -- Block Height - block_time Int default=0 -- Block time + block_id Int + block_confs Int default=0 + block_network String default="" + block_height Int default=0 + block_time Int default=0 UniqueBlock block_id deriving Show Eq ZgoBlockTx - blocktx_block_id Int --'Block Tx parent - blocktx_id Int -- Block Tx record Id - blocktx_txid String -- Block Tx Id + blocktx_block_id Int + blocktx_id Int + blocktx_txid String UniqueBlockTx blocktx_block_id blocktx_id deriving Show Eq ZgoCountry - country_code String -- Two Character Country Code - country_name String -- Country unique name + country_code String + country_name String UniqueCountryCode country_code deriving Show Eq ZgoItem - item_owner_id Int -- Owner Id - item_id String -- Item Id - item_name String -- Item name', - item_description T.Text default="" -- Item description - item_cost Float default=0.0 -- Item Unit price + item_owner_id Int + item_id String + item_name String + item_description T.Text default="" + item_cost Float default=0.0 UniqueItemId item_owner item_id deriving Show Eq ZgoLanguages - encode_id String -- Language encoding id - view_name String default-"" -- View name that use this language' - view_element String default="" -- 'Element name - view_element_text T.Text default="" -- Text to be displayed' + encode_id String + view_name String default-"" + view_element String default="" + view_element_text T.Text default="" UniqueLanguage encode_id view_name view_element deriving Show Eq ZgoOrders - order_id Int -- Order Id - order_zaddress T.Text -- Order zcash address - order_session T.Text -- Order session id - order_timestamp Int -- Order timestamp - order_closed Word8 -- Order closed flag - order_currency String -- Order currency - order_price Float default=0.0 -- Order ZEC price - order_total Float default=0.0 -- Order total amount - order_totalzec Float default=0.0 -- Order total in ZEC - order_paid Word8 default=0 -- Order paid status - order_token String default="" -- Order token - order_extinv String default="" -- Order External Invoice - order_shortcode String default='' -- Order invoice shortcode - order_taxamount Float default=0.0 -- Order tax amount - order_tipamount Float default=0.0 -- Order tip amount - order_vatamount Float default=0.0 -- Orcer VAT amount' + order_id Int + order_zaddress T.Text + order_session T.Text + order_timestamp Int + order_closed Word8 + order_currency String + order_price Float default=0.0 + order_total Float default=0.0 + order_totalzec Float default=0.0 + order_paid Word8 default=0 + order_token String default="" + order_extinv String default="" + order_shortcode String default='' + order_taxamount Float default=0.0 + order_tipamount Float default=0.0 + order_vatamount Float default=0.0 UniqueOrderId order_id deriving Show Eq ZgoOrderLines - orderline_orderid Int default=0 -- Orderlines Order Id - orderline_line Int default=0 -- Orderlines Line number - orderline_qty Int default=0 -- Orderline item qty - orderline_name T.Text default="" -- Orderline item description - orderline_cost Float default=0.0 -- Orderline item cost + orderline_orderid Int default=0 + orderline_line Int default=0 + orderline_qty Int default=0 + orderline_name T.Text default="" + orderline_cost Float default=0.0 UniqueOrderLine orderline_orderid orderline_line deriving Show Eq ZgoOwner - owner_id Int --'Owner ID number - owner_co_name String default="" -- Company''s name - owner_firstname String -- Owner's first name - owner_lastname String -- Owner's last name - owner_email String -- Owner's email address - owner_street String -- Owner's street - owner_city String -- Owner's city - owner_state String -- Owner's state - owner_zipcode String -- Owner's zip code - owner_phone String -- Owner's phone number - owner_country String -- Owner's country - owner_website String -- Owner's website URL - owner_currency String -- Owner's currency', - owner_zcaddress String -- Owner's zcash address - owner_usezats Word8 -- Use zats for display - owner_crmtoken T.Text -- Owner's crm token - owner_usetax Word8 -- Use tax flag - owner_taxvalue Float -- Tax rate to use - owner_usevat Word8 -- Use vat flag - owner_vat Float -- Vat rate to use - owner_payconf Word8 -- Confirm payment flag - owner_viewkey T.Text -- Viewing Key for payment confirmation - owner_invoices Word8 -- Use zgo invoices - owner_tips Word8 -- Activate tips - owner_paid Word8 -- True if account is paid - owner_expiration Int -- Expiration date-time + owner_id Int + owner_co_name String default="" + owner_firstname String + owner_lastname String + owner_email String + owner_street String + owner_city String + owner_state String + owner_zipcode String + owner_phone String + owner_country String + owner_website String + owner_currency String + owner_zcaddress String + owner_usezats Word8 + owner_crmtoken T.Text + owner_usetax Word8 + owner_taxvalue Float + owner_usevat Word8 + owner_vat Float + owner_payconf Word8 + owner_viewkey T.Text + owner_invoices Word8 + owner_tips Word8 + owner_paid Word8 + owner_expiration Int UniqueOwnerId owner_id UniqueOwnerZcashAddr owner_zcaddress deriving Show Eq ZgoPayment - payment_id Int -- Payment Id - payment_delta Int -- Payment delta - payment_done Word8 -- Payment done flag - payment_zaddress T.Text -- Payment zcash address - payment_session String default="" -- Payment session - payment_blocktime Int default=0 -- Payment blocktime - payment_amount Float default=0.0 -- Payment amount - payment_txid String default ="" -- Payment transaction id - payment_memo T.Text default="" -- Payment Memo + payment_id Int + payment_delta Int + payment_done Word8 + payment_zaddress T.Text + payment_session String default="" + payment_blocktime Int default=0 + payment_amount Float default=0.0 + payment_txid String default ="" + payment_memo T.Text default="" UniquePaymentId payment_id deriving Show Eq ZgoPrice - price_id Int -- Price Id - price_delta Int default=0 -- Price delta - price_done Word8 default=0 -- Price done flag - price_zaddress T.Text default="" -- Price zcash address - price_session String default="" -- Price session - price_blocktime Int default=0 -- Price blocktime - price_amount Float default=0.0 -- Price amount - price_txid String default="" -- Price transaction id - price_memo T.Text default="" -- Price Memo + price_id Int + price_delta Int default=0 + price_done Word8 default=0 + price_zaddress T.Text default="" + price_session String default="" + price_blocktime Int default=0 + price_amount Float default=0.0 + price_txid String default="" + price_memo T.Text default="" UniquePriceId price_id deriving Show Eq ZgoProsession - pro_id Int -- Prosession record id - pro_zaddress T.Text default="" -- Prosession zcash address - pro_expiration Int default=0 -- Prosession expiration date/time - pro_closed Word8 default=0 -- Prosession closed flag + pro_id Int + pro_zaddress T.Text default="" + pro_expiration Int default=0 + pro_closed Word8 default=0 UniqueProSesId pro_id UniqueProSesZad pro_zaddress deriving Show Eq ZgoTransaction - tx_id Int -- Transaction ID - tx_zaddress T.Text default="" -- Transaction Zcash Address - tx_expiration Int default=0 -- Transaction Expiration Date/Time - tx_closed Word8 default=0 -- Transaction Closed flag + tx_id Int + tx_zaddress T.Text default="" + tx_expiration Int default=0 + tx_closed Word8 default=0 UniqueTxId tx_id deriving Show Eq ZgoUser - user_id Int -- User Id - user_zaddress T.Text -- User zcash address, - user_session String -- User session id - user_blocktime Int -- User block time - user_pin String -- User pin - user_validated Word8 default=0 -- User validated flag + user_id Int + user_zaddress T.Text + user_session String + user_blocktime Int + user_pin String + user_validated Word8 default=0 UniqueUserId user_id UniqueUserZad user_zaddress deriving Show Eq ZgoXero - xero_id Int -- Xero Id - xero_client_id String default="" -- Xero client id - xero_client_secret String default="" -- Xero client secret word + xero_id Int + xero_client_id String default="" + xero_client_secret String default="" UniqueXeroId xero_id UniqueXeroClientId xero_client_id deriving Show Eq ZgoXeroToken - xerotoken_id Int -- Xero account id - xerotoken_zaddress T.Text -- Xero zcash address - xerotoken_access_token T.Text -- Xero account access token - xerotoken_expires Int -- Xero token expiration date/time - xerotoken_refreshtoken String -- Xero refresh token - xerotoken_accexpires Int -- Xero account expire date/time - xerotoken_accCode String -- Xero account code - xerotoken_refexpires Int -- Xero reference expire date/time + xerotoken_id Int + xerotoken_zaddress T.Text + xerotoken_access_token T.Text + xerotoken_expires Int + xerotoken_refreshtoken String + xerotoken_accexpires Int + xerotoken_accCode String + xerotoken_refexpires Int UniqueXeroTokenId xerotoken_id deriving Show Eq - \ No newline at end of file + |]