queryRunner :: QueryRunnerColumn a b -> QueryRunner (Column a) b
queryRunner qrc = QueryRunner u (const (fieldWith fp))
    where QueryRunnerColumn u fp = qrc
queryRunner :: QueryRunnerColumn a b -> QueryRunner (Column a) b
queryRunner qrc = QueryRunner u (const (fieldWith fp))
    where QueryRunnerColumn u fp = qrc
queryRunner qrc = QueryRunner u (const (fieldWith fp))
    where QueryRunnerColumn u fp = qrc