@@ -100,7 +100,7 @@ recordsAsRelation [] = Left EmptyTuplesError
100100recordsAsRelation recordZips = do
101101 tupleList <- mapM (uncurry recordAsTuple) recordZips
102102 let oneTuple = head tupleList
103− mkRelation (tupleAttributes oneTuple) (HS.fromList tupleList)
103+ mkRelation (tupleAttributes oneTuple) (RelationTupleSet tupleList)
104104
105105keyFromValuesOrDie :: (Trans.MonadIO m,
106106 PersistEntity record,
@@ -525,7 +525,7 @@ instance PersistQuery C.Connection where
525525 rel <- Trans.liftIO $ C.executeRelationalExpr conn restrictionExpr
526526 case rel of
527527 Left err -> Trans.liftIO $ throwIO $ PersistError (T.pack (show err))
528− Right (Relation _ tupleSet) -> mapM tupleMapper $ HS.toList tupleSet --refactor to use some relation accessors- here we convert a relation to a matrix, effectively (especially to support future sorting)
528+ Right (Relation _ tupleSet) -> mapM tupleMapper $ asList tupleSet --refactor to use some relation accessors- here we convert a relation to a matrix, effectively (especially to support future sorting)
529529 case entities of
530530 Left err -> Trans.liftIO $ throwIO $ PersistError (T.pack $ show err)
531531 Right entities' -> return $ return $ CL.sourceList entities'
@@ -545,7 +545,7 @@ instance PersistQuery C.Connection where
545545 case keyFromValues (map atomAsPersistValue (V.toList atoms)) of
546546 Left err -> Trans.liftIO $ throwIO $ PersistError "keyFromValues failure"
547547 Right key -> right key
548− mapM keyMapper $ HS.toList tupleSet
548+ mapM keyMapper $ asList tupleSet
549549 case keys of
550550 Left err -> Trans.liftIO $ throwIO $ PersistError "keyFromValues failure2"
551551 Right keys' -> return $ return (CL.sourceList keys')