@@ -82,7 +82,7 @@ gctor :: All QueryValues xs
8282gctor o (Constructor n) args =
8383 K . concat . hcollapse $ hcliftA p (K . map (k,) . queryValues . unI) args
8484 where
85− k = BS.pack $ (constructorTagModifier o) n
85+ k = BS.pack (constructorTagModifier o n)
8686
8787gctor o (Record _ ns) args =
8888 K . concat . hcollapse $ hcliftA2 p (gfield o) ns args
@@ -90,9 +90,9 @@ gctor o (Record _ ns) args =
9090gctor o (Infix n _ _) (x :* y :* Nil) =
9191 K $ map (k,) (queryValues (unI x) ++ queryValues (unI y))
9292 where
93− k = BS.pack $ (constructorTagModifier o) n
93+ k = BS.pack (constructorTagModifier o n)
9494
95−gctor _ (Infix _ _ _) _ =
95+gctor _ Infix{} _ =
9696 error "Network.PagerDuty.Generics.inaccessible"
9797
9898gfield :: QueryValues a
@@ -103,7 +103,7 @@ gfield :: QueryValues a
103103gfield o (FieldInfo f) (I a) =
104104 K $ map (k,) (queryValues a)
105105 where
106− k = BS.pack $ (fieldLabelModifier o) f
106+ k = BS.pack (fieldLabelModifier o f)
107107
108108p :: Proxy QueryValues
109109p = Proxy