@@ -15,6 +15,7 @@ import Data.Coerce (coerce)
15import Data.Hashable (Hashable)
15import Data.Hashable (Hashable)
16import Data.UUID (UUID)
16import Data.UUID (UUID)
17import qualified Data.UUID as UUID
17import qualified Data.UUID as UUID
18import Database.PostgreSQL.Simple.FromField (FromField)
19import Database.PostgreSQL.Simple.FromField (FromField)
19import Database.PostgreSQL.Simple.ToField (ToField)
20import Database.PostgreSQL.Simple.ToField (ToField)
20import GHC.Generics (Generic)
21import GHC.Generics (Generic)
@@ -25,7 +26,7 @@ import Yesod.Core (PathPiece(..))
25newtype Id t = Id { unId :: UUID }
26newtype Id t = Id { unId :: UUID }
27 ( Eq, Ord, Generic, Read, Show, ToField, FromField, PathPiece, FromJSON
28 ( Eq, Ord, Generic, Read, Show, ToField, FromField, PathPiece, FromJSON
28− , ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey)
29+ , ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey, ToSchema)
30type role Id nominal
31type role Id nominal