From 8ad1f6e4584b3e668bee10c2f5b383b457688d58 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 26 Sep 2023 00:05:01 +0100
Subject: Adapt maximum tenants extraction to latest HTML.

The HTML specifying the maximum tenants has changed
slightly. Adapt.

* rent.scm (house-maximum-tenants): Adapt to latest HTML.
---
 rent.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/rent.scm b/rent.scm
index 7258c5e..7730c9f 100644
--- a/rent.scm
+++ b/rent.scm
@@ -263,7 +263,8 @@
    (house-page-sxml house)
    `((td *preorder* . ,(lambda (root . children)
                          (sxml-match (cons root children)
-                                     ((td (i (@ (class "fa fa-users"))) " " (strong ,maximum-tenants))
+                                     ((td (span (i (@ (class "fa fa-users"))) " Max Tenants:")
+                                          " " (strong ,maximum-tenants))
                                       (cons 'result (string->number maximum-tenants)))
                                      (,_ #f))))
      (*TOP* . ,handle-top)
-- 
cgit v1.2.3