From 3e6b3357912267468d56b4835b7bc365fcd975b2 Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Thu, 2 Feb 2023 15:14:41 +0000
Subject: [PATCH] refactor: Factor out `composeList` helper for clarity

---
 primer-service/src/Primer/Server.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/primer-service/src/Primer/Server.hs b/primer-service/src/Primer/Server.hs
index 19fac246c..7cef7fe14 100644
--- a/primer-service/src/Primer/Server.hs
+++ b/primer-service/src/Primer/Server.hs
@@ -132,8 +132,9 @@ openAPIInfo =
     refParamSchemas params api =
       api
         & #components % #schemas %~ IOHM.insert name (toSchema $ Proxy @a)
-        & #paths %~ foldr ((.) . uncurry (flip adjustParam)) identity params
+        & #paths %~ composeList (map (uncurry $ flip adjustParam) params)
       where
+        composeList = appEndo . foldMap' Endo
         adjustParam paramName =
           IOHM.adjust $
             #post % mapped % #parameters % mapped %~ \case