From 4a0a37588f2ed12fbe0f5e17062a90431e87723a Mon Sep 17 00:00:00 2001 From: Robert Vollmert Date: Thu, 16 Apr 2020 11:01:23 +0200 Subject: [PATCH] Fix hlint 2.2.11 bracketing suggestions --- src/PostgREST/OpenAPI.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/PostgREST/OpenAPI.hs b/src/PostgREST/OpenAPI.hs index 22520a8d6..4dc497132 100644 --- a/src/PostgREST/OpenAPI.hs +++ b/src/PostgREST/OpenAPI.hs @@ -117,7 +117,7 @@ makeProcParam pd = [ Inline $ (mempty :: Param) & name .~ "args" & required ?~ True - & schema .~ (ParamBody $ Inline $ makeProcSchema pd) + & schema .~ ParamBody (Inline $ makeProcSchema pd) , Ref $ Reference "preferParams" ] @@ -221,7 +221,7 @@ makePathItem (t, cs, _) = ("/" ++ unpack tn, p $ tableInsertable t) & description .~ "OK" & schema ?~ Inline (mempty & type_ ?~ SwaggerArray - & items ?~ (SwaggerItemsObject $ Ref $ Reference $ tableName t) + & items ?~ SwaggerItemsObject (Ref $ Reference $ tableName t) ) ) postOp = tOp