diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Lib.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 <> ". " |