Fix readonly with isReadOnly (#4102)

* fix readonly

* update samples
This commit is contained in:
William Cheng
2019-10-09 15:16:22 +08:00
committed by GitHub
parent 25596cf8f0
commit cf38c56aa6
160 changed files with 252 additions and 252 deletions

View File

@@ -1146,8 +1146,8 @@ mkFormatTest formatTestNumber formatTestByte formatTestDate formatTestPassword =
-- ** HasOnlyReadOnly
-- | HasOnlyReadOnly
data HasOnlyReadOnly = HasOnlyReadOnly
{ hasOnlyReadOnlyBar :: !(Maybe Text) -- ^ "bar"
, hasOnlyReadOnlyFoo :: !(Maybe Text) -- ^ "foo"
{ hasOnlyReadOnlyBar :: !(Maybe Text) -- ^ /ReadOnly/ "bar"
, hasOnlyReadOnlyFoo :: !(Maybe Text) -- ^ /ReadOnly/ "foo"
} deriving (P.Show, P.Eq, P.Typeable)
-- | FromJSON HasOnlyReadOnly
@@ -1346,9 +1346,9 @@ mkModelReturn =
-- Model for testing model name same as property name
data Name = Name
{ nameName :: !(Int) -- ^ /Required/ "name"
, nameSnakeCase :: !(Maybe Int) -- ^ "snake_case"
, nameSnakeCase :: !(Maybe Int) -- ^ /ReadOnly/ "snake_case"
, nameProperty :: !(Maybe Text) -- ^ "property"
, name123number :: !(Maybe Int) -- ^ "123Number"
, name123number :: !(Maybe Int) -- ^ /ReadOnly/ "123Number"
} deriving (P.Show, P.Eq, P.Typeable)
-- | FromJSON Name
@@ -1548,7 +1548,7 @@ mkPet petName petPhotoUrls =
-- ** ReadOnlyFirst
-- | ReadOnlyFirst
data ReadOnlyFirst = ReadOnlyFirst
{ readOnlyFirstBar :: !(Maybe Text) -- ^ "bar"
{ readOnlyFirstBar :: !(Maybe Text) -- ^ /ReadOnly/ "bar"
, readOnlyFirstBaz :: !(Maybe Text) -- ^ "baz"
} deriving (P.Show, P.Eq, P.Typeable)