{- Update -}
(<~*) :: (IConnection c) => c -> (ParsedType, PrimaryKey) -> IO ()
conn <~* (st, pk) = void (run conn query (sqlize st ++ [toSql pk]))
    where
        query = getUpdate st
(<~*) :: (IConnection c) => c -> (ParsedType, PrimaryKey) -> IO ()
conn <~* (st, pk) = void (run conn query (sqlize st ++ [toSql pk]))
    where
        query = getUpdate st
conn <~* (st, pk) = void (run conn query (sqlize st ++ [toSql pk]))
    where
        query = getUpdate st