Remove instance for json body

anton-k · Oct 19, 2023 · 026794c · 026794c
1 parent efbb33c
commit 026794c
Showing 1 changed file with 0 additions and 5 deletions.
diff --git a/mig-extra/src/Mig/Extra/Server/Json.hs b/mig-extra/src/Mig/Extra/Server/Json.hs
@@ -57,11 +57,6 @@ instance (ToSchema a, FromJSON a, ToRoute b) => ToRoute (Body a -> b) where
     (toRouteFun :: ((Core.Body Json a -> b) -> ServerFun (Core.MonadOf b)))
       (\(Core.Body a) -> f (Body a))
 
-instance (ToSchema a, FromJSON a, ToRoute b) => ToServer (Body a -> b) where
-  toServer f =
-    (toServer :: ((Core.Body Json a -> b) -> Server (Core.MonadOf b)))
-      (\(Core.Body a) -> f (Body a))
-
 instance (FromJSON a, ToSchema a, ToMiddleware b) => ToMiddleware (Body a -> b) where
   toMiddlewareInfo = toMiddlewareInfo @(Core.Body Json a -> b)