@@ -15,6 +15,7 @@ import Control.Applicative
1515import Control.Monad
1616import Data.Aeson
1717import Data.Aeson.TH (deriveJSON)
18+import qualified Data.Aeson.Types as JSON
1819import Data.HashMap.Strict (HashMap)
1920import qualified Data.HashMap.Strict as HashMap
2021import Data.Map (Map)
@@ -811,9 +812,13 @@ instance ToJSON Example where
811812instance ToJSON Reference where
812813 toJSON (Reference ref) = object [ "$ref" .= ref ]
813814
814−instance ToJSON a => ToJSON (Referenced a) where
815− toJSON (Ref ref) = toJSON ref
816− toJSON (Inline x) = toJSON x
815+referencedToJSON :: ToJSON a => Text -> Referenced a -> Value
816+referencedToJSON prefix (Ref (Reference ref)) = object [ "$ref" .= (prefix <> ref) ]
817+referencedToJSON _ (Inline x) = toJSON x
818+
819+instance ToJSON (Referenced Schema) where toJSON = referencedToJSON "#/definitions/"
820+instance ToJSON (Referenced Param) where toJSON = referencedToJSON "#/parameters/"
821+instance ToJSON (Referenced Response) where toJSON = referencedToJSON "#/responses/"
817822
818823instance ToJSON (SwaggerType t) where
819824 toJSON SwaggerArray = "array"
@@ -959,10 +964,21 @@ instance FromJSON Reference where
959964 parseJSON (Object o) = Reference <$> o .: "$ref"
960965 parseJSON _ = empty
961966
962−instance FromJSON a => FromJSON (Referenced a) where
963− parseJSON js
964− = Ref <$> parseJSON js
965− <|> Inline <$> parseJSON js
967+referencedParseJSON :: FromJSON a => Text -> Value -> JSON.Parser (Referenced a)
968+referencedParseJSON prefix js@(Object o) = do
969+ ms <- o .:? "$ref"
970+ case ms of
971+ Nothing -> Inline <$> parseJSON js
972+ Just s -> Ref <$> parseRef s
973+ where
974+ parseRef s = do
975+ case Text.stripPrefix prefix s of
976+ Nothing -> fail $ "expected $ref of the form \"" <> Text.unpack prefix <> "*\", but got " <> show s
977+ Just suffix -> pure (Reference suffix)
978+
979+instance FromJSON (Referenced Schema) where parseJSON = referencedParseJSON "#/definitions/"
980+instance FromJSON (Referenced Param) where parseJSON = referencedParseJSON "#/parameters/"
981+instance FromJSON (Referenced Response) where parseJSON = referencedParseJSON "#/responses/"
966982
967983instance FromJSON Xml where
968984 parseJSON = genericParseJSON (jsonPrefix "xml")