module Stratosphere.Resources.LogStream where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
data LogStream =
LogStream
{ _logStreamLogGroupName :: Val Text
, _logStreamLogStreamName :: Maybe (Val Text)
} deriving (Show, Generic)
instance ToJSON LogStream where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 10, omitNothingFields = True }
instance FromJSON LogStream where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 10, omitNothingFields = True }
logStream
:: Val Text
-> LogStream
logStream logGroupNamearg =
LogStream
{ _logStreamLogGroupName = logGroupNamearg
, _logStreamLogStreamName = Nothing
}
lsLogGroupName :: Lens' LogStream (Val Text)
lsLogGroupName = lens _logStreamLogGroupName (\s a -> s { _logStreamLogGroupName = a })
lsLogStreamName :: Lens' LogStream (Maybe (Val Text))
lsLogStreamName = lens _logStreamLogStreamName (\s a -> s { _logStreamLogStreamName = a })