diff --git a/esqueleto.cabal b/esqueleto.cabal
--- a/esqueleto.cabal
+++ b/esqueleto.cabal
@@ -1,5 +1,5 @@
 name:                esqueleto
-version:             1.0
+version:             1.0.1
 synopsis:            Bare bones, type-safe EDSL for SQL queries on persistent backends.
 homepage:            https://github.com/meteficha/esqueleto
 license:             BSD3
diff --git a/src/Database/Esqueleto.hs b/src/Database/Esqueleto.hs
--- a/src/Database/Esqueleto.hs
+++ b/src/Database/Esqueleto.hs
@@ -50,6 +50,9 @@
   , delete
   , update
 
+    -- * Helpers
+  , valkey
+
     -- * Re-exports
     -- $reexports
   , deleteKey
@@ -57,6 +60,7 @@
   , module Database.Persist.Store
   ) where
 
+import Data.Int (Int64)
 import Database.Esqueleto.Internal.Language
 import Database.Esqueleto.Internal.Sql
 import Database.Persist.Store hiding (delete)
@@ -289,6 +293,16 @@
 --      from $ \\p -> do
 --      where_ (p ^. PersonAge <. just (val 14))
 -- @
+
+
+----------------------------------------------------------------------
+
+
+-- | @valkey i = val (Key (PersistInt64 i))@
+-- (<https://github.com/meteficha/esqueleto/issues/9>).
+valkey :: Esqueleto query expr backend =>
+          Int64 -> expr (Value (Key entity))
+valkey = val . Key . PersistInt64
 
 
 ----------------------------------------------------------------------