diff --git a/src/Database/Esqueleto.hs b/src/Database/Esqueleto.hs
index 08bee48..3b2dcad 100644
--- a/src/Database/Esqueleto.hs
+++ b/src/Database/Esqueleto.hs
@@ -377,7 +377,7 @@ import qualified Database.Persist
 ----------------------------------------------------------------------
 
 
--- | @valkey i = val (Key (PersistInt64 i))@
+-- | @valkey i = 'val' . 'toSqlKey'@
 -- (<https://github.com/meteficha/esqueleto/issues/9>).
 valkey :: (Esqueleto query expr backend, ToBackendKey SqlBackend entity, PersistField (Key entity)) =>
           Int64 -> expr (Value (Key entity))