typeable/id
1
0
Fork 0
mirror of https://github.com/typeable/id.git synced 2024-09-11 13:26:02 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #6 from typeable/fix-store-and-flags

Browse Source 
bug in flags
This commit is contained in:
Ville Tirronen 2022-07-28 13:19:51 +03:00 committed by GitHub
commit 8a62b18a3f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Data/Id.hs
View File

@ -144,9 +144,12 @@ newtype IntId t = IntId { unIntId :: Integer }
#ifdef USE_CASSAVA
, Csv.ToField, Csv.FromField
#endif
#ifdef USE_FLAT
, Flat
#endif
#endif
, FromJSON, ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey, ToSchema
, ToParamSchema, FromHttpApiData, ToHttpApiData, PathPiece, Flat, Arbitrary
, ToParamSchema, FromHttpApiData, ToHttpApiData, PathPiece, Arbitrary
, Num, Integral, Real, Enum )
type role IntId nominal
@ -187,9 +190,12 @@ newtype Name t = Name { unName :: Text }
#ifdef USE_CASSAVA
, Csv.ToField, Csv.FromField
#endif
#ifdef USE_FLAT
, Flat
#endif
#endif
, FromJSON, ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey, ToSchema
, ToParamSchema, FromHttpApiData, ToHttpApiData, PathPiece, Flat
, ToParamSchema, FromHttpApiData, ToHttpApiData, PathPiece
, IsString, Semigroup, Monoid )
type role Name nominal