@@ -47,7 +47,9 @@ serviceDecl s n = sfun noLoc n [] (UnGuardedRhs rhs) noBinds
4747scopeSig :: Name -> Text -> Decl
4848scopeSig n v = TypeSig noLoc [n] $
4949 TyApp (TyCon "Proxy") $
50− TyPromoted $ PromotedList True [PromotedString (Text.unpack v)]
50+ TyPromoted $ PromotedList True
51+ [ TyPromoted $ PromotedString (Text.unpack v)
52+ ]
5153
5254scopeDecl :: Name -> Decl
5355scopeDecl n = sfun noLoc n [] (UnGuardedRhs (var "Proxy")) noBinds
@@ -286,7 +288,8 @@ requestDecl n p api url fs m =
286288
287289 ss = InsType noLoc (TyApp (TyCon "Scopes") (tycon n)) $
288290 TyPromoted $
289− PromotedList True (map (PromotedString . Text.unpack) (_mScopes m))
291+ PromotedList True $
292+ map (TyPromoted . PromotedString . Text.unpack) (_mScopes m)
290293
291294 extras = catMaybes [alt, payload]
292295 where