rds-data 0.0.0.10 → 0.0.0.11

raw patch · 3 files changed

+11/−5 lines, 3 files

Files

• polysemy/Data/RdsData/Polysemy/Core.hs +3/−3
• rds-data.cabal +1/−1
• src/Data/RdsData/Decode/Value.hs +7/−1

@@ -109,11 +109,11 @@     , "  deployed_by      TEXT NOT NULL,"     , "  CONSTRAINT valid_ulid_constraint"     , "    CHECK (ulid::text ~ '^[0-9A-HJKMNP-TV-Z]{26}$')"-    , ");"+    , ")"     ]    executeStatement_-    "CREATE INDEX IF NOT EXISTS idx_migration_created_at ON migration (created_at);"+    "CREATE INDEX IF NOT EXISTS idx_migration_created_at ON migration (created_at)"    executeStatement_-    "CREATE INDEX IF NOT EXISTS idx_migration_deployed_by ON migration (deployed_by);"+    "CREATE INDEX IF NOT EXISTS idx_migration_deployed_by ON migration (deployed_by)"

@@ -1,7 +1,7 @@ cabal-version: 3.6  name:                   rds-data-version:                0.0.0.10+version:                0.0.0.11 synopsis:               Codecs for use with AWS rds-data description:            Codecs for use with AWS rds-data. category:               Data

@@ -41,6 +41,8 @@   , uuid   , day +  , fail+   ) where  import           Amazonka.Data.Base64@@ -54,7 +56,7 @@ import           Data.Time import           Data.UUID                     (UUID) import           Data.Word-import           Prelude                       hiding (maybe, null)+import           Prelude                       hiding (fail, maybe, null)  import qualified Amazonka.Data.ByteString      as AWS import qualified Data.Aeson                    as J@@ -86,6 +88,10 @@   DecodeValue a >>= f = DecodeValue \v -> do     a' <- a v     decodeValue (f a') v++fail :: Text -> DecodeValue a+fail =+    DecodeValue . const . Left  --------------------------------------------------------------------------------