More persistent2 updates

src/Database/Esqueleto.hs

@@ -79,9 +79,6 @@ module Database.Esqueleto
   , (<#)
   , (<&>)
 
-    -- * Helpers
-  , valkey
-
     -- * Re-exports
     -- $reexports
   , deleteKey
@@ -371,16 +368,6 @@ import qualified Database.Persist
 ----------------------------------------------------------------------
 
 
--- | @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 (PersistEntityBackend val)

src/Database/Esqueleto/Internal/PersistentImport.hs

@@ -9,4 +9,5 @@ import Database.Persist.Sql hiding
   , Update(..), delete, deleteWhereCount, updateWhereCount, selectList
   , selectKeysList, deleteCascadeWhere, (=.), (+=.), (-=.), (*=.), (/=.)
   , (==.), (!=.), (<.), (>.), (<=.), (>=.), (<-.), (/<-.), (||.)
-  , listToJSON, mapToJSON, getPersistMap, limitOffsetOrder, selectSource )
+  , listToJSON, mapToJSON, getPersistMap, limitOffsetOrder, selectSource
+  , update )

src/Database/Esqueleto/Internal/Sql.hs

@@ -113,7 +113,7 @@ instance Monoid SideData where
 
 -- | A part of a @FROM@ clause.
 data FromClause =
-    FromStart Ident (EntityDef SqlType)
+    FromStart Ident EntityDef
   | FromJoin FromClause JoinKind FromClause (Maybe (SqlExpr (Value Bool)))
   | OnClause (SqlExpr (Value Bool))