(<~/>) :: (IConnection c) => c -> (PairOfTypes, Either PrimaryKey PairOfKeys) -> IO ()
conn <~/> (ts, Left pk) = void(run conn query [toSql pk])
    where query= uncurry getFullDissociate ts
(<~/>) :: (IConnection c) => c -> (PairOfTypes, Either PrimaryKey PairOfKeys) -> IO ()
conn <~/> (ts, Left pk) = void(run conn query [toSql pk])
    where query= uncurry getFullDissociate ts
conn <~/> (ts, Left pk) = void(run conn query [toSql pk])
    where query= uncurry getFullDissociate ts