This repository has been archived by the owner on Dec 8, 2022. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 7
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Merge pull request #87 from input-output-hk/ksaric/CAD-1838
[CAD-1838] Add whitelisting (listing) to return delisted.
- Loading branch information
Showing
10 changed files
with
182 additions
and
1,083 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -2,4 +2,5 @@ | |
dist-newstyle/ | ||
*~ | ||
tags | ||
stack.yaml.lock | ||
result* |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,32 @@ | ||
-- Persistent generated migration. | ||
|
||
CREATE FUNCTION migrate() RETURNS void AS $$ | ||
DECLARE | ||
next_version int ; | ||
BEGIN | ||
SELECT stage_two + 1 INTO next_version FROM schema_version ; | ||
IF next_version = 3 THEN | ||
ALTER TABLE "pool_metadata_reference" ALTER COLUMN "pool_id" TYPE text; | ||
ALTER TABLE "pool_metadata_reference" ALTER COLUMN "url" TYPE text; | ||
ALTER TABLE "pool_metadata_reference" ALTER COLUMN "hash" TYPE text; | ||
ALTER TABLE "pool_metadata" ALTER COLUMN "pool_id" TYPE text; | ||
ALTER TABLE "pool_metadata" ALTER COLUMN "ticker_name" TYPE text; | ||
ALTER TABLE "pool_metadata" ALTER COLUMN "hash" TYPE text; | ||
ALTER TABLE "pool_metadata" ALTER COLUMN "metadata" TYPE text; | ||
ALTER TABLE "pool_metadata_fetch_error" ALTER COLUMN "pool_id" TYPE text; | ||
ALTER TABLE "pool_metadata_fetch_error" ALTER COLUMN "pool_hash" TYPE text; | ||
ALTER TABLE "delisted_pool" ALTER COLUMN "pool_id" TYPE text; | ||
ALTER TABLE "delisted_pool" ADD CONSTRAINT "unique_delisted_pool" UNIQUE("pool_id"); | ||
ALTER TABLE "delisted_pool" DROP CONSTRAINT "unique_blacklisted_pool"; | ||
ALTER TABLE "reserved_ticker" ALTER COLUMN "name" TYPE text; | ||
ALTER TABLE "reserved_ticker" ALTER COLUMN "pool_hash" TYPE text; | ||
-- Hand written SQL statements can be added here. | ||
UPDATE schema_version SET stage_two = 3 ; | ||
RAISE NOTICE 'DB has been migrated to stage_two version %', next_version ; | ||
END IF ; | ||
END ; | ||
$$ LANGUAGE plpgsql ; | ||
|
||
SELECT migrate() ; | ||
|
||
DROP FUNCTION migrate() ; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,29 @@ | ||
{-# LANGUAGE FlexibleContexts #-} | ||
{-# LANGUAGE TypeFamilies #-} | ||
|
||
module Cardano.Db.Delete | ||
( deleteDelistedPool | ||
) where | ||
|
||
import Cardano.Prelude hiding (Meta) | ||
|
||
import Control.Monad.IO.Class (MonadIO) | ||
import Control.Monad.Trans.Reader (ReaderT) | ||
|
||
import Database.Persist.Class (AtLeastOneUniqueKey, Key, PersistEntityBackend, | ||
getByValue, insert, checkUnique) | ||
import Database.Persist.Sql (SqlBackend, (==.), deleteCascade, selectKeysList) | ||
import Database.Persist.Types (entityKey) | ||
|
||
import Cardano.Db.Schema | ||
import Cardano.Db.Error | ||
import qualified Cardano.Db.Types as Types | ||
|
||
-- | Delete a delisted pool if it exists. Returns 'True' if it did exist and has been | ||
-- deleted and 'False' if it did not exist. | ||
deleteDelistedPool :: MonadIO m => Types.PoolId -> ReaderT SqlBackend m Bool | ||
deleteDelistedPool poolId = do | ||
keys <- selectKeysList [ DelistedPoolPoolId ==. poolId ] [] | ||
mapM_ deleteCascade keys | ||
pure $ not (null keys) | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.