conn <~/> (ts, Right pks) = void(run conn query $ sqlizePair pks)
    where query = uncurry getDissociate ts

{- Associate data in a triple relationship -}
conn <~/> (ts, Right pks) = void(run conn query $ sqlizePair pks)
    where query = uncurry getDissociate ts

{- Associate data in a triple relationship -}
conn <~/> (ts, Right pks) = void(run conn query $ sqlizePair pks)
    where query = uncurry getDissociate ts

{- Associate data in a triple relationship -}