nonRecursiveRemove :: (IConnection con) => [(String, Relation A.Value)] -> [(String, A.Value)] -> Model con ()
nonRecursiveRemove rel val = do
   deleteFromTable False keyVal $ head keys
   mapM_ (deleteFromTable False keyVal) $ tail keys
   where 
      (kField, IsKey keys) = findIsKey rel
      keyVal = findKeyVal rel val
nonRecursiveRemove :: (IConnection con) => [(String, Relation A.Value)] -> [(String, A.Value)] -> Model con ()
nonRecursiveRemove rel val = do
   deleteFromTable False keyVal $ head keys
   mapM_ (deleteFromTable False keyVal) $ tail keys
   where 
      (kField, IsKey keys) = findIsKey rel
      keyVal = findKeyVal rel val
nonRecursiveRemove rel val = do
   deleteFromTable False keyVal $ head keys
   mapM_ (deleteFromTable False keyVal) $ tail keys
   where 
      (kField, IsKey keys) = findIsKey rel
      keyVal = findKeyVal rel val