From b1fbe35ebe7950b4fa7f6bf8bdd92ed5acdfdeca Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 27 Dec 2011 21:08:25 +0200 Subject: [PATCH] Explicit kind signature on Key phantom type --- persistent/Database/Persist/Base.hs | 2 +- persistent/persistent.cabal | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/persistent/Database/Persist/Base.hs b/persistent/Database/Persist/Base.hs index 1f75322d8..c9a6cd28d 100644 --- a/persistent/Database/Persist/Base.hs +++ b/persistent/Database/Persist/Base.hs @@ -374,7 +374,7 @@ instance PersistField SomePersistField where fromPersistValue x = fmap SomePersistField (fromPersistValue x :: Either String String) sqlType (SomePersistField a) = sqlType a -newtype Key backend entity = Key { unKey :: PersistValue } +newtype Key (backend :: (* -> *) -> * -> *) entity = Key { unKey :: PersistValue } deriving (Show, Read, Eq, Ord, PersistField) class (Trans.MonadIO (b m), Trans.MonadIO m, Monad (b m), Monad m) => PersistBackend b m where diff --git a/persistent/persistent.cabal b/persistent/persistent.cabal index 9d3b1a1b4..8920b44e5 100644 --- a/persistent/persistent.cabal +++ b/persistent/persistent.cabal @@ -1,5 +1,5 @@ name: persistent -version: 0.6.4.3 +version: 0.6.4.4 license: BSD3 license-file: LICENSE author: Michael Snoyman