git.iko.soy/typeable/swagger2
on master help sign in
Fixes #132
4ce7dc9Adriaan Middelkoop
src/Data/Swagger/Internal/Schema.hs+3−2
compare with master
unifiedsplit
@@ -680,11 +680,12 @@ genericNameSchema :: forall a d f proxy.
680genericNameSchema opts _ = NamedSchema (gdatatypeSchemaName opts (Proxy :: Proxy d))
680genericNameSchema opts _ = NamedSchema (gdatatypeSchemaName opts (Proxy :: Proxy d))
681
681
682gdatatypeSchemaName :: forall proxy d. Datatype d => SchemaOptions -> proxy d -> Maybe T.Text
682gdatatypeSchemaName :: forall proxy d. Datatype d => SchemaOptions -> proxy d -> Maybe T.Text
683−gdatatypeSchemaName opts _ = case name of
683+gdatatypeSchemaName opts _ = case orig of
684 (c:_) | isAlpha c && isUpper c -> Just (T.pack name)
684 (c:_) | isAlpha c && isUpper c -> Just (T.pack name)
685 _ -> Nothing
685 _ -> Nothing
686 where
686 where
687− name = datatypeNameModifier opts (datatypeName (Proxy3 :: Proxy3 d f a))
687+ orig = datatypeName (Proxy3 :: Proxy3 d f a)
688+ name = datatypeNameModifier opts orig
688
689
689-- | Lift a plain @'ParamSchema'@ into a model @'NamedSchema'@.
690-- | Lift a plain @'ParamSchema'@ into a model @'NamedSchema'@.
690paramSchemaToNamedSchema :: forall a d f proxy.
691paramSchemaToNamedSchema :: forall a d f proxy.