From 52f91cb98a3cbadbc494d271f8e49e46485ef16f Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@rel4tion.org>
Date: Tue, 2 Aug 2016 15:44:45 +0000
Subject: [PATCH] PersistEntityGraph specifies type of single graph selector

---
 src/Database/Persist/Local/Class/PersistEntityGraph.hs | 1 +
 src/Vervis/Model.hs                                    | 1 +
 2 files changed, 2 insertions(+)

diff --git a/src/Database/Persist/Local/Class/PersistEntityGraph.hs b/src/Database/Persist/Local/Class/PersistEntityGraph.hs
index 148f0fe..6f4bd81 100644
--- a/src/Database/Persist/Local/Class/PersistEntityGraph.hs
+++ b/src/Database/Persist/Local/Class/PersistEntityGraph.hs
@@ -23,6 +23,7 @@ import Prelude
 import Database.Persist
 
 class (PersistEntity n, PersistEntity e) => PersistEntityGraph n e where
+    type PersistEntityGraphSelector n e
     sourceParam :: e -> Key n
     sourceField :: EntityField e (Key n)
     destParam   :: e -> Key n
diff --git a/src/Vervis/Model.hs b/src/Vervis/Model.hs
index b86e9da..63467f0 100644
--- a/src/Vervis/Model.hs
+++ b/src/Vervis/Model.hs
@@ -56,6 +56,7 @@ instance Hashable ProjectRoleId where
     hash = hash . fromSqlKey
 
 instance PersistEntityGraph Ticket TicketDependency where
+    type PersistEntityGraphSelector Ticket TicketDependency = ProjectId
     sourceParam = ticketDependencyParent
     sourceField = TicketDependencyParent
     destParam   = ticketDependencyChild