@@ -476,8 +476,6 @@ instance NFData ActionExecution where
476476-- /See:/ 'actionRevision' smart constructor.
477477data ActionRevision = ActionRevision'
478478 { _aRevisionId :: ! Text
479- , _aRevisionChangeId :: ! Text
480- , _aCreated :: ! POSIX
481479 } deriving (Eq , Read , Show , Data , Typeable , Generic )
482480
483481
@@ -492,36 +490,22 @@ data ActionRevision = ActionRevision'
492490-- * 'aCreated' - The date and time when the most recent version of the action was created, in timestamp format.
493491actionRevision
494492 :: Text -- ^ 'aRevisionId'
495- -> Text -- ^ 'aRevisionChangeId'
496- -> UTCTime -- ^ 'aCreated'
497493 -> ActionRevision
498- actionRevision pRevisionId_ pRevisionChangeId_ pCreated_ =
494+ actionRevision pRevisionId_ =
499495 ActionRevision'
500496 { _aRevisionId = pRevisionId_
501- , _aRevisionChangeId = pRevisionChangeId_
502- , _aCreated = _Time # pCreated_
503497 }
504498
505499
506500-- | The system-generated unique ID that identifies the revision number of the action.
507501aRevisionId :: Lens' ActionRevision Text
508502aRevisionId = lens _aRevisionId (\ s a -> s{_aRevisionId = a})
509503
510- -- | The unique identifier of the change that set the state to this revision, for example a deployment ID or timestamp.
511- aRevisionChangeId :: Lens' ActionRevision Text
512- aRevisionChangeId = lens _aRevisionChangeId (\ s a -> s{_aRevisionChangeId = a})
513-
514- -- | The date and time when the most recent version of the action was created, in timestamp format.
515- aCreated :: Lens' ActionRevision UTCTime
516- aCreated = lens _aCreated (\ s a -> s{_aCreated = a}) . _Time
517-
518504instance FromJSON ActionRevision where
519505 parseJSON
520506 = withObject " ActionRevision"
521507 (\ x ->
522- ActionRevision' <$>
523- (x .: " revisionId" ) <*> (x .: " revisionChangeId" ) <*>
524- (x .: " created" ))
508+ ActionRevision' <$> (x .: " revisionId" ))
525509
526510instance Hashable ActionRevision where
527511
@@ -531,9 +515,7 @@ instance ToJSON ActionRevision where
531515 toJSON ActionRevision' {.. }
532516 = object
533517 (catMaybes
534- [Just (" revisionId" .= _aRevisionId),
535- Just (" revisionChangeId" .= _aRevisionChangeId),
536- Just (" created" .= _aCreated)])
518+ [Just (" revisionId" .= _aRevisionId)])
537519
538520-- | Represents information about the state of an action.
539521--
0 commit comments