 	       [tgt-metamodel (str prefix ".union()") extra-pairs]))])
       ))
 
+;; types
+
+(defn date [#^Integer y #^Integer m #^Integer d] (LocalDate. y m d))


(defn ffilter
  ([key predicate required]
   (let [yes (list value) no '()]
     (split key (fn [candidate] (if (predicate candidate required) yes no)))))
  ([key required]
   (ffilter key = required)))

	   Transformer$StatelessStrategy
	   Update
	   View
	   ]
	  [org.joda.time
	   LocalDate])
 )

;;--------------------------------------------------------------------------------
