module Database.Relational.Query.Monad.Register (
Register,
extract,
) where
import Database.Relational.Query.Component (Config, Assignments)
import Database.Relational.Query.Table (Table)
import Database.Relational.Query.Monad.BaseType (ConfigureQuery, configureQuery)
import Database.Relational.Query.Monad.Trans.Assigning (Assignings, extractAssignments)
type Register r = Assignings r ConfigureQuery
extract :: Assignings r ConfigureQuery a -> Config -> (a, Table r -> Assignments)
extract = configureQuery . extractAssignments