distinct' :: U.Unpackspec wires -> Query wires -> Query wires
distinct' u q = simpleQueryArr $ \((), t0) ->
  let (a, primQ, t1) = runSimpleQueryArr q ((), t0)
      cols = U.runUnpackspec u a
  in (a, Group (map (\oldCol -> (oldCol, AttrExpr oldCol)) cols) primQ, t1)
distinct' :: U.Unpackspec wires -> Query wires -> Query wires
distinct' u q = simpleQueryArr $ \((), t0) ->
  let (a, primQ, t1) = runSimpleQueryArr q ((), t0)
      cols = U.runUnpackspec u a
  in (a, Group (map (\oldCol -> (oldCol, AttrExpr oldCol)) cols) primQ, t1)
distinct' u q = simpleQueryArr $ \((), t0) ->
  let (a, primQ, t1) = runSimpleQueryArr q ((), t0)
      cols = U.runUnpackspec u a
  in (a, Group (map (\oldCol -> (oldCol, AttrExpr oldCol)) cols) primQ, t1)