@@ -28,7 +28,7 @@ import Yesod.Core (PathPiece(..))
28newtype Id t = Id { unId :: UUID }
28newtype Id t = Id { unId :: UUID }
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, ToParamSchema
32 , FromHttpApiData, ToHttpApiData )
32 , FromHttpApiData, ToHttpApiData )
34type role Id nominal
34type role Id nominal