@@ -6,7 +6,7 @@ module Data.Id
8import Control.DeepSeq (NFData)
8import Control.DeepSeq (NFData)
9−import Data.Aeson (FromJSON, ToJSON)
9+import Data.Aeson (FromJSON, FromJSONKey, ToJSON, ToJSONKey)
10import Data.Binary (Binary)
10import Data.Binary (Binary)
11import Data.Coerce (coerce)
11import Data.Coerce (coerce)
12import Data.Hashable (Hashable)
12import Data.Hashable (Hashable)
@@ -21,7 +21,7 @@ import Yesod.Core (PathPiece(..))
21newtype Id (t :: k) = Id { unId :: UUID }
21newtype Id (t :: k) = Id { unId :: UUID }
23 ( Eq, Ord, Generic, Read, Show, ToField, FromField, PathPiece, FromJSON
23 ( Eq, Ord, Generic, Read, Show, ToField, FromField, PathPiece, FromJSON
24− , ToJSON, NFData, Hashable)
24+ , ToJSON, NFData, Hashable, FromJSONKey, ToJSONKey)
26type role Id nominal
26type role Id nominal