From c307e1679e3ef7e778fc5c6e88ad0d38298594e4 Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Wed, 12 Jul 2023 13:06:36 +0200 Subject: [PATCH] Fix warnings. --- src/App/DNSZone.purs | 2 -- src/App/ZoneInterface.purs | 5 +++-- src/Bulma.purs | 8 ++++---- 3 files changed, 7 insertions(+), 8 deletions(-) diff --git a/src/App/DNSZone.purs b/src/App/DNSZone.purs index c20e064..0eed95a 100644 --- a/src/App/DNSZone.purs +++ b/src/App/DNSZone.purs @@ -1,7 +1,5 @@ module App.DNSZone where -import Data.Maybe (Maybe) - import Data.Codec.Argonaut (JsonCodec) import Data.Codec.Argonaut as CA import Data.Codec.Argonaut.Record as CAR diff --git a/src/App/ZoneInterface.purs b/src/App/ZoneInterface.purs index 223dbf7..93b2bda 100644 --- a/src/App/ZoneInterface.purs +++ b/src/App/ZoneInterface.purs @@ -37,8 +37,9 @@ import Halogen.HTML.Properties as HP import Bulma as Bulma import CSSClasses as C -import App.RR -import App.ResourceRecord +import App.RR (MXRR, Port, Priority, Protocol, RRId, RecordDomain, RecordValue, SOARR, SRVRR, SimpleRR, TTL, Weight + , defaultResourceA, defaultResourceMX, defaultResourceSRV) +import App.ResourceRecord (ResourceRecord) import App.LogMessage (LogMessage(..)) import App.Messages.DNSManagerDaemon as DNSManager diff --git a/src/Bulma.purs b/src/Bulma.purs index b3e2769..613fa4e 100644 --- a/src/Bulma.purs +++ b/src/Bulma.purs @@ -11,7 +11,7 @@ import MissingHTMLProperties as MissingProperties import CSSClasses as C -import Halogen.HTML.Core (PropName(..), AttrName(..)) +import Halogen.HTML.Core (AttrName(..)) -- import Web.Event.Event (type_, Event, EventType(..)) import Web.UIEvent.MouseEvent (MouseEvent) @@ -392,11 +392,11 @@ select action options [ HH.select action options] hero :: forall w i. String -> String -> HH.HTML w i -hero title subtitle +hero _title _subtitle = HH.section [ HP.classes (C.hero <> C.is_info <> C.is_small) ] [ HH.div [ HP.classes C.hero_body ] - [ HH.p [ HP.classes C.title ] [ HH.text title ] - , HH.p [ HP.classes C.subtitle ] [ HH.text subtitle ] + [ HH.p [ HP.classes C.title ] [ HH.text _title ] + , HH.p [ HP.classes C.subtitle ] [ HH.text _subtitle ] ] ]