From 49730fd7d46f1298b06938e7d9c10bec18d55596 Mon Sep 17 00:00:00 2001 From: Marc Scholten Date: Mon, 4 Jan 2021 10:27:31 +0100 Subject: [PATCH] Fixed missing NFData instance for Id' --- IHP/ModelSupport.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/IHP/ModelSupport.hs b/IHP/ModelSupport.hs index aa4723271..b8b7b431e 100644 --- a/IHP/ModelSupport.hs +++ b/IHP/ModelSupport.hs @@ -204,6 +204,7 @@ deriving instance (Eq (PrimaryKey table)) => Eq (Id' table) deriving instance (Ord (PrimaryKey table)) => Ord (Id' table) deriving instance (Hashable (PrimaryKey table)) => Hashable (Id' table) deriving instance (KnownSymbol table, Data (PrimaryKey table)) => Data (Id' table) +deriving instance (KnownSymbol table, NFData (PrimaryKey table)) => NFData (Id' table) -- | We need to map the model to it's table name to prevent infinite recursion in the model data definition -- E.g. `type Project = Project' { id :: Id Project }` will not work