From 1e9658d189b10f5b02bf6e5bf5e87d77954a89cb Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Fri, 9 May 2025 20:13:07 +0200 Subject: [PATCH] Fix Home page. --- src/App/Page/Home.purs | 6 +++--- src/Web/Header.purs | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/App/Page/Home.purs b/src/App/Page/Home.purs index da3f02c..ffd365b 100644 --- a/src/App/Page/Home.purs +++ b/src/App/Page/Home.purs @@ -66,10 +66,10 @@ render _ = HH.div_ ] where url_linuxfr = "https://linuxfr.org/news/netlibre-un-service-libre-et-un-nom-de-domaine-gratuit" - title = Web.h3 - expl content = Web.quote [ Web.explanation content ] + title = Web.h4 + expl content = Web.quote content p = Web.p - b x = Web.column_ [ Web.box [ Web.quote x ] ] + b x = Web.column_ [ Web.box x ] render_description = Web.columns_ [ render_basics, render_no_expert, render_no_housing ] render_update_why_and_contact = Web.columns_ [ render_updates, render_why, render_contact ] diff --git a/src/Web/Header.purs b/src/Web/Header.purs index bff8d2a..132f275 100644 --- a/src/Web/Header.purs +++ b/src/Web/Header.purs @@ -5,13 +5,13 @@ import Halogen.HTML.Properties as HP import CSSClasses as C -h1 :: forall (w :: Type) (a :: Type). String -> HH.HTML w a +h1 :: forall w a. String -> HH.HTML w a h1 str = HH.h1 [ HP.classes [C.title] ] [ HH.text str ] -h3 :: forall (w :: Type) (a :: Type). String -> HH.HTML w a +h3 :: forall w a. String -> HH.HTML w a h3 str = HH.h3 [ HP.classes [C.title] ] [ HH.text str ] -h4 :: forall (w :: Type) (a :: Type). String -> HH.HTML w a +h4 :: forall w a. String -> HH.HTML w a h4 str = HH.h4 [ HP.classes [C.title] ] [ HH.text str ] title :: forall w a. String -> HH.HTML w a