refactor: Factor out composeList helper for clarity

hackworthltd · Feb 2, 2023 · 3e6b335 · 3e6b335
1 parent 89fc6ae
commit 3e6b335
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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