Fix hlint 2.2.11 bracketing suggestions

This commit is contained in:
Robert Vollmert
2020-04-16 17:47:52 -05:00
committed by Steve Chavez
parent 5838214910
commit 4a0a37588f
+2 -2
View File
@@ -117,7 +117,7 @@ makeProcParam pd =
[ Inline $ (mempty :: Param) [ Inline $ (mempty :: Param)
& name .~ "args" & name .~ "args"
& required ?~ True & required ?~ True
& schema .~ (ParamBody $ Inline $ makeProcSchema pd) & schema .~ ParamBody (Inline $ makeProcSchema pd)
, Ref $ Reference "preferParams" , Ref $ Reference "preferParams"
] ]
@@ -221,7 +221,7 @@ makePathItem (t, cs, _) = ("/" ++ unpack tn, p $ tableInsertable t)
& description .~ "OK" & description .~ "OK"
& schema ?~ Inline (mempty & schema ?~ Inline (mempty
& type_ ?~ SwaggerArray & type_ ?~ SwaggerArray
& items ?~ (SwaggerItemsObject $ Ref $ Reference $ tableName t) & items ?~ SwaggerItemsObject (Ref $ Reference $ tableName t)
) )
) )
postOp = tOp postOp = tOp