@@ -82,7 +82,7 @@ gctor :: All QueryValues xs
82gctor o (Constructor n) args =
82gctor o (Constructor n) args =
83 K . concat . hcollapse $ hcliftA p (K . map (k,) . queryValues . unI) args
83 K . concat . hcollapse $ hcliftA p (K . map (k,) . queryValues . unI) args
85− k = BS.pack $ (constructorTagModifier o) n
85+ k = BS.pack (constructorTagModifier o n)
87gctor o (Record _ ns) args =
87gctor o (Record _ ns) args =
88 K . concat . hcollapse $ hcliftA2 p (gfield o) ns args
88 K . concat . hcollapse $ hcliftA2 p (gfield o) ns args
@@ -90,9 +90,9 @@ gctor o (Record _ ns) args =
90gctor o (Infix n _ _) (x :* y :* Nil) =
90gctor o (Infix n _ _) (x :* y :* Nil) =
91 K $ map (k,) (queryValues (unI x) ++ queryValues (unI y))
91 K $ map (k,) (queryValues (unI x) ++ queryValues (unI y))
93− k = BS.pack $ (constructorTagModifier o) n
93+ k = BS.pack (constructorTagModifier o n)
95−gctor _ (Infix _ _ _) _ =
95+gctor _ Infix{} _ =
96 error "Network.PagerDuty.Generics.inaccessible"
96 error "Network.PagerDuty.Generics.inaccessible"
98gfield :: QueryValues a
98gfield :: QueryValues a
@@ -103,7 +103,7 @@ gfield :: QueryValues a
103gfield o (FieldInfo f) (I a) =
103gfield o (FieldInfo f) (I a) =
104 K $ map (k,) (queryValues a)
104 K $ map (k,) (queryValues a)
106− k = BS.pack $ (fieldLabelModifier o) f
106+ k = BS.pack (fieldLabelModifier o f)
108p :: Proxy QueryValues
108p :: Proxy QueryValues