karchnu/halogen-websocket-ipc-playzone
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix warnings.

Browse Source
This commit is contained in:
Philippe Pittoli 2023-07-12 13:06:36 +02:00
parent c2fb32b547
commit c307e1679e
3 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/App/DNSZone.purs
View File

@ -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

5
src/App/ZoneInterface.purs
View File

@ -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

8
src/Bulma.purs
View File

@ -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 ]
]
]