-- | 'ValidationMessage' constructor.
--
-- The fields accessible through corresponding lenses are:
--
-- * 'vmMessage' @::@ 'Maybe' 'Text'
--
-- * 'vmNamespace' @::@ 'Maybe' 'Text'
--
-- * 'vmOptionName' @::@ 'Maybe' 'Text'
--
-- * 'vmSeverity' @::@ 'Maybe' 'ValidationSeverity'
--
validationMessage :: ValidationMessage
validationMessage = ValidationMessage
    { _vmMessage    = Nothing
    , _vmSeverity   = Nothing
    , _vmNamespace  = Nothing
    , _vmOptionName = Nothing
    }
validationMessage :: ValidationMessage
validationMessage = ValidationMessage
    { _vmMessage    = Nothing
    , _vmSeverity   = Nothing
    , _vmNamespace  = Nothing
    , _vmOptionName = Nothing
    }
validationMessage = ValidationMessage
    { _vmMessage    = Nothing
    , _vmSeverity   = Nothing
    , _vmNamespace  = Nothing
    , _vmOptionName = Nothing
    }