You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
407 B
lCCojure
17 lines
407 B
lCCojure
(ns example.real-estate
|
|
(:require [com.owoga.frp.infrastructure :as frp]))
|
|
|
|
(frp/defrelvar Offer
|
|
#(string? (:address %))
|
|
#(number? (:offer-price %))
|
|
#(inst? (:offer-date %))
|
|
#(string? (:bidder-name %))
|
|
#(string? (:bidder-address %)))
|
|
|
|
(frp/defrelvar Property
|
|
#(string? (:address %))
|
|
#(number? (:price %))
|
|
#(string? (:photo %))
|
|
#(string? (:agent-name %))
|
|
#(inst? (:date-registered %)))
|