@@ -1,6 +1,8 @@
11{-# LANGUAGE DeriveGeneric #-}
2+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
23module Data.Swagger.Internal where
34
5+import Data.Aeson (ToJSON, FromJSON)
46import qualified Data.Aeson as JSON
57import Data.HashMap.Strict (HashMap)
68import Data.Text (Text)
@@ -8,7 +10,6 @@ import Data.Hashable (Hashable)
810import GHC.Generics (Generic)
911import Network (HostName, PortNumber)
1012import Network.HTTP.Media (MediaType)
11−import Network.URL (URL)
1213
1314-- | This is the root document object for the API specification.
1415data Swagger = Swagger
@@ -622,3 +623,5 @@ data SwaggerExternalDocs = SwaggerExternalDocs
622623 , swaggerExternalDocsUrl :: URL
623624 } deriving (Show)
624625
626+newtype URL = URL { getUrl :: Text } deriving (Show, ToJSON, FromJSON)
627+