getDisplayPrice :: Maybe HomeType -> Maybe MaxPrice -> Maybe MinPrice -> Maybe Price -> Maybe ContactForPricing -> String
getDisplayPrice _ _ _ _ (Just x) -> str (x)
getDisplayPrice _ _ _ (Just price) _ -> str (price)
getDisplayPrice (Just building) (Just max_price) (Just min_price) _ _ -> (str min_price) ++ (str max_price)
getDisplayPrice _ _ _ _ _ -> "Contact For Pricing"