Gundeck internal API swagger

cabal.project

@@ -11,7 +11,6 @@ packages:
   , libs/dns-util/
   , libs/deriving-swagger2/
   , libs/galley-types/
-  , libs/gundeck-types/
   , libs/hscim/
   , libs/http2-manager/
   , libs/imports/

changelog.d/5-internal/gundeck-internal-swagger

@@ -0,0 +1 @@
+Expose gundeck internal API on swagger.  Mv some types and routes to wire-api.

docs/src/understand/api-client-perspective/swagger.md

@@ -75,6 +75,8 @@ Internal APIs are not under version control.
     endpoints](https://staging-nginz-https.zinfra.io/api-internal/swagger-ui/cargohold)
     - [`galley` - **internal** (private)
     endpoints](https://staging-nginz-https.zinfra.io/api-internal/swagger-ui/galley)
+    - [`gundeck` - **internal** (private)
+    endpoints](https://staging-nginz-https.zinfra.io/api-internal/swagger-ui/gundeck)
     - [`spar` - **internal** (private)
     endpoints](https://staging-nginz-https.zinfra.io/api-internal/swagger-ui/spar)
 

libs/wire-api/default.nix

@@ -63,6 +63,7 @@
 , metrics-wai
 , mime
 , mtl
+, network-uri
 , openapi3
 , pem
 , polysemy
@@ -169,6 +170,7 @@ mkDerivation {
     metrics-wai
     mime
     mtl
+    network-uri
     openapi3
     pem
     polysemy

libs/wire-api/src/Wire/API/CannonId.hs

@@ -0,0 +1,18 @@
+module Wire.API.CannonId where
+
+import Data.Aeson
+import Data.OpenApi
+import Data.Proxy
+import Imports
+import Web.HttpApiData
+
+newtype CannonId = CannonId
+  { cannonId :: Text
+  }
+  deriving (Eq, Ord, Show, FromJSON, ToJSON)
+
+instance ToParamSchema CannonId where
+  toParamSchema _ = toParamSchema (Proxy @Text)
+
+instance FromHttpApiData CannonId where
+  parseUrlPiece = pure . CannonId

libs/wire-api/src/Wire/API/Event/Gundeck.hs

@@ -0,0 +1,24 @@
+module Wire.API.Event.Gundeck where
+
+import Data.Aeson
+import Data.Aeson.KeyMap qualified as KeyMap
+import Data.Json.Util
+import Imports
+import Wire.API.Push.V2.Token
+
+newtype PushRemove = PushRemove PushToken
+  deriving (Eq, Show)
+
+instance FromJSON PushRemove where
+  parseJSON = withObject "push-removed object" $ \o ->
+    PushRemove <$> o .: "token"
+
+instance ToJSON PushRemove where
+  toJSON = Object . toJSONObject
+
+instance ToJSONObject PushRemove where
+  toJSONObject (PushRemove t) =
+    KeyMap.fromList
+      [ "type" .= ("user.push-remove" :: Text),
+        "token" .= t
+      ]