Add add set cookies instance (#1702)

* Add AddSetCookies instance for when the left tree is the same before and after the transformation * Added changelog * Updated the changelog
haskell-servant · Aug 22, 2023 · ca6944b · ca6944b
1 parent 809ca37
commit ca6944b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/changelog.d/1702 b/changelog.d/1702
@@ -0,0 +1,3 @@
+synopsis: Add AddSetCookies instance for when the left tree is the same before and after the transformation.
+prs: #1702
+issues: #1601
diff --git a/servant-auth/servant-auth-server/src/Servant/Auth/Server/Internal/AddSetCookie.hs b/servant-auth/servant-auth-server/src/Servant/Auth/Server/Internal/AddSetCookie.hs
@@ -86,6 +86,11 @@ instance {-# OVERLAPS #-}
   => AddSetCookies ('S n) (a :<|> b) (a' :<|> b') where
   addSetCookies cookies (a :<|> b) = addSetCookies cookies a :<|> addSetCookies cookies b
 
+instance {-# OVERLAPPING #-}
+  (AddSetCookies ('S n) a a, AddSetCookies ('S n) b b')
+  => AddSetCookies ('S n) (a :<|> b) (a :<|> b') where
+  addSetCookies cookies ( a :<|> b) = addSetCookies cookies a :<|> addSetCookies cookies b
+
 instance {-# OVERLAPS #-}
   ( AddSetCookies ('S n) (ServerT (ToServantApi api) m) cookiedApi
   , Generic (api (AsServerT m))