Made deleteRecord a bit more generic to support records where relatio…

…ns have been fetched

Currently deleteRecord is not working with records to which fetchRelated has been applied

IHP/ModelSupport.hs

@@ -228,7 +228,7 @@ tableName = Text.pack (symbolVal @(GetTableName model) Proxy)
 -- DELETE FROM projects WHERE id = '..'
 --
 -- Use 'deleteRecords' if you want to delete multiple records.
-deleteRecord :: forall model id. (?modelContext :: ModelContext, Show id, KnownSymbol (GetTableName model), HasField "id" model id, model ~ GetModelById id, ToField id) => model -> IO ()
+deleteRecord :: forall model id. (?modelContext :: ModelContext, Show id, KnownSymbol (GetTableName model), HasField "id" model id, ToField id) => model -> IO ()
 deleteRecord model = do
     let (ModelContext conn) = ?modelContext
     let id = getField @"id" model