(<~~) :: (IConnection c) => c -> (PairOfKeys, ParsedType) -> IO  ()
conn <~~ (p,  t@(PMetadataValue s)) = void(run conn (getInsert t) (SqlNull:toSql s:sqlizePair p))
(<~~) :: (IConnection c) => c -> (PairOfKeys, ParsedType) -> IO  ()
conn <~~ (p,  t@(PMetadataValue s)) = void(run conn (getInsert t) (SqlNull:toSql s:sqlizePair p))
conn <~~ (p,  t@(PMetadataValue s)) = void(run conn (getInsert t) (SqlNull:toSql s:sqlizePair p))