git.iko.soy/typeable/id
on master help sign in
[sso-153] Create backend API for agency settings page (#5614)
25decbcUladzimir Stsepchanka
id.cabal+1
compare with master
unifiedsplit
@@ -16,6 +16,7 @@ library
16 deepseq,
16 deepseq,
17 QuickCheck,
17 QuickCheck,
18 hashable,
18 hashable,
19+ http-api-data,
19 lens,
20 lens,
20 postgresql-simple,
21 postgresql-simple,
21 openapi3,
22 openapi3,
src/Data/Id.hs+3−2
@@ -22,13 +22,14 @@ import Database.PostgreSQL.Simple.FromField (FromField)
22import Database.PostgreSQL.Simple.ToField (ToField)
22import Database.PostgreSQL.Simple.ToField (ToField)
23import GHC.Generics (Generic)
23import GHC.Generics (Generic)
24import Test.QuickCheck
24import Test.QuickCheck
25+import Web.HttpApiData
25import Yesod.Core (PathPiece(..))
26import Yesod.Core (PathPiece(..))
26
27
27−
28newtype Id t = Id { unId :: UUID }
28newtype Id t = Id { unId :: UUID }
29 deriving
29 deriving
30 ( Eq, Ord, Generic, Read, Show, Data, ToField, FromField, PathPiece, FromJSON
30 ( Eq, Ord, Generic, Read, Show, Data, ToField, FromField, PathPiece, FromJSON
31− , ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey, ToSchema)
31+ , ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey, ToSchema
32+ , FromHttpApiData, ToHttpApiData )
32
33
33type role Id nominal
34type role Id nominal
34
35