-- | RFC 3339 date-time when this blog was published.
bPublished :: Lens' Blog (Maybe UTCTime)
bPublished
  = lens _bPublished (\ s a -> s{_bPublished = a}) .
      mapping _DateTime
bPublished :: Lens' Blog (Maybe UTCTime)
bPublished
  = lens _bPublished (\ s a -> s{_bPublished = a}) .
      mapping _DateTime
bPublished
  = lens _bPublished (\ s a -> s{_bPublished = a}) .
      mapping _DateTime