@@ -144,9 +144,12 @@ newtype IntId t = IntId { unIntId :: Integer }
144144#ifdef USE_CASSAVA
145145 , Csv.ToField, Csv.FromField
146146#endif
147+#ifdef USE_FLAT
148+ , Flat
149+#endif
147150#endif
148151 , FromJSON, ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey, ToSchema
149− , ToParamSchema, FromHttpApiData, ToHttpApiData, PathPiece, Flat, Arbitrary
152+ , ToParamSchema, FromHttpApiData, ToHttpApiData, PathPiece, Arbitrary
150153 , Num, Integral, Real, Enum )
151154
152155type role IntId nominal
@@ -187,9 +190,12 @@ newtype Name t = Name { unName :: Text }
187190#ifdef USE_CASSAVA
188191 , Csv.ToField, Csv.FromField
189192#endif
193+#ifdef USE_FLAT
194+ , Flat
195+#endif
190196#endif
191197 , FromJSON, ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey, ToSchema
192− , ToParamSchema, FromHttpApiData, ToHttpApiData, PathPiece, Flat
198+ , ToParamSchema, FromHttpApiData, ToHttpApiData, PathPiece
193199 , IsString, Semigroup, Monoid )
194200
195201type role Name nominal