diff --git a/primer/src/Primer/Core/Meta.hs b/primer/src/Primer/Core/Meta.hs index 3cc57d218..293676bdd 100644 --- a/primer/src/Primer/Core/Meta.hs +++ b/primer/src/Primer/Core/Meta.hs @@ -63,7 +63,7 @@ newtype ID = ID {unID :: Int} deriving newtype (ToJSONKey, FromJSONKey) deriving anyclass (NFData) -data Meta a = Meta ID a (Maybe Value) +data Meta a = Meta !ID a (Maybe Value) deriving stock (Generic, Eq, Ord, Show, Read, Data, Functor) deriving (FromJSON, ToJSON) via PrimerJSON (Meta a) deriving anyclass (NFData)