@@ -15,6 +15,7 @@ import Data.Coerce (coerce)
1515import Data.Hashable (Hashable)
1616import Data.UUID (UUID)
1717import qualified Data.UUID as UUID
18+import Data.OpenApi
1819import Database.PostgreSQL.Simple.FromField (FromField)
1920import Database.PostgreSQL.Simple.ToField (ToField)
2021import GHC.Generics (Generic)
@@ -25,7 +26,7 @@ import Yesod.Core (PathPiece(..))
2526newtype Id t = Id { unId :: UUID }
2627 deriving
2728 ( Eq, Ord, Generic, Read, Show, ToField, FromField, PathPiece, FromJSON
28− , ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey)
29+ , ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey, ToSchema)
2930
3031type role Id nominal
3132