on master help sign in
[SSO-145] UI for OpenAPI description (#5485)
636c6f1Uladzimir Stsepchanka
src/Data/Id.hs+1−1
@@ -28,7 +28,7 @@ import Yesod.Core (PathPiece(..))
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, ToParamSchema
32 , FromHttpApiData, ToHttpApiData )
32 , FromHttpApiData, ToHttpApiData )
33
33
34type role Id nominal
34type role Id nominal