copyDBSnapshot
    :: (MonadBaseControl IO m, MonadResource m)
    => Text -- ^ SourceDBSnapshotIdentifier
    -> Text -- ^ TargetDBSnapshotIdentifier
    -> RDS m DBSnapshot
copyDBSnapshot source target =
    rdsQuery "CopyDBSnapshot" params $
        element "DBSnapshot" sinkDBSnapshot
  where
    params =
        [ "SourceDBSnapshotIdentifier" |= source
        , "TargetDBSnapshotIdentifier" |= target
        ]
copyDBSnapshot
    :: (MonadBaseControl IO m, MonadResource m)
    => Text -- ^ SourceDBSnapshotIdentifier
    -> Text -- ^ TargetDBSnapshotIdentifier
    -> RDS m DBSnapshot
copyDBSnapshot source target =
    rdsQuery "CopyDBSnapshot" params $
        element "DBSnapshot" sinkDBSnapshot
  where
    params =
        [ "SourceDBSnapshotIdentifier" |= source
        , "TargetDBSnapshotIdentifier" |= target
        ]
copyDBSnapshot source target =
    rdsQuery "CopyDBSnapshot" params $
        element "DBSnapshot" sinkDBSnapshot
  where
    params =
        [ "SourceDBSnapshotIdentifier" |= source
        , "TargetDBSnapshotIdentifier" |= target
        ]