From 7cb142c3a102d359929d6b7c1aa5626413a7ba51 Mon Sep 17 00:00:00 2001 From: cyfraeviolae Date: Fri, 16 May 2025 16:00:11 -0400 Subject: fix --- src/Lib.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Lib.hs b/src/Lib.hs index 17acd41..67e6579 100644 --- a/src/Lib.hs +++ b/src/Lib.hs @@ -368,7 +368,7 @@ instance ToHtml HomeView where forM_ mediums $ \Medium {tag = (MediumTag tagm), label, description, disabled} -> div_ $ do input_ $ [type_ "checkbox", name_ "m", value_ tagm, id_ tagm] - ++ [checked_ | tagm == "ReligiousArchitecture"] + ++ [checked_] ++ [disabled_ "1" | disabled] label_ (for_ tagm : [class_ "disabled" | disabled]) $ do span_ $ toHtml label <> ". " -- cgit v1.2.3