diff --git a/src/Database/Esqueleto.hs b/src/Database/Esqueleto.hs index deed682..3e599c8 100644 --- a/src/Database/Esqueleto.hs +++ b/src/Database/Esqueleto.hs @@ -129,7 +129,7 @@ import qualified Database.Persist -- * Support the mostly used SQL features. We'd like you to be -- able to use @esqueleto@ for all of your queries, no -- exceptions. Send a pull request or open an issue on our --- project page () if +-- project page () if -- there's anything missing that you'd like to see. -- -- * Be as type-safe as possible. We strive to provide as many @@ -378,7 +378,7 @@ import qualified Database.Persist -- | @valkey i = 'val' . 'toSqlKey'@ --- (). +-- (). valkey :: (Esqueleto query expr backend, ToBackendKey SqlBackend entity, PersistField (Key entity)) => Int64 -> expr (Value (Key entity)) valkey = val . toSqlKey