From aa2c207dd17e1e255dcc18f1ffc64de6ad3ee2e8 Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Fri, 14 Dec 2012 16:45:59 -0200
Subject: [PATCH] Add valkey helper (fixes #9).

---
 src/Database/Esqueleto.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/Database/Esqueleto.hs b/src/Database/Esqueleto.hs
index d429182..ffe3e6d 100644
--- a/src/Database/Esqueleto.hs
+++ b/src/Database/Esqueleto.hs
@@ -50,6 +50,9 @@ module Database.Esqueleto
   , delete
   , update
 
+    -- * Helpers
+  , valkey
+
     -- * Re-exports
     -- $reexports
   , deleteKey
@@ -57,6 +60,7 @@ module Database.Esqueleto
   , 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)
@@ -294,6 +298,16 @@ import qualified Database.Persist.Store
 ----------------------------------------------------------------------
 
 
+-- | @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
+
+
+----------------------------------------------------------------------
+
+
 -- | Synonym for 'Database.Persist.Store.delete' that does not
 -- clash with @esqueleto@'s 'delete'.
 deleteKey :: ( PersistStore m