@@ -22,13 +22,14 @@ import Database.PostgreSQL.Simple.FromField (FromField)
2222import Database.PostgreSQL.Simple.ToField (ToField)
2323import GHC.Generics (Generic)
2424import Test.QuickCheck
25+import Web.HttpApiData
2526import Yesod.Core (PathPiece(..))
2627
27−
2828newtype Id t = Id { unId :: UUID }
2929 deriving
3030 ( 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 )
3233
3334type role Id nominal
3435