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

Fix warnings.

beta
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 module App.DNSZone where
import Data.Maybe (Maybe)
import Data.Codec.Argonaut (JsonCodec) import Data.Codec.Argonaut (JsonCodec)
import Data.Codec.Argonaut as CA import Data.Codec.Argonaut as CA
import Data.Codec.Argonaut.Record as CAR 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 Bulma as Bulma
import CSSClasses as C import CSSClasses as C
import App.RR import App.RR (MXRR, Port, Priority, Protocol, RRId, RecordDomain, RecordValue, SOARR, SRVRR, SimpleRR, TTL, Weight
import App.ResourceRecord , defaultResourceA, defaultResourceMX, defaultResourceSRV)
import App.ResourceRecord (ResourceRecord)
import App.LogMessage (LogMessage(..)) import App.LogMessage (LogMessage(..))
import App.Messages.DNSManagerDaemon as DNSManager 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 CSSClasses as C
import Halogen.HTML.Core (PropName(..), AttrName(..)) import Halogen.HTML.Core (AttrName(..))
-- import Web.Event.Event (type_, Event, EventType(..)) -- import Web.Event.Event (type_, Event, EventType(..))
import Web.UIEvent.MouseEvent (MouseEvent) import Web.UIEvent.MouseEvent (MouseEvent)
@ -392,11 +392,11 @@ select action options
[ HH.select action options] [ HH.select action options]
hero :: forall w i. String -> String -> HH.HTML w i 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.section [ HP.classes (C.hero <> C.is_info <> C.is_small) ]
[ HH.div [ HP.classes C.hero_body ] [ HH.div [ HP.classes C.hero_body ]
[ HH.p [ HP.classes C.title ] [ HH.text title ] [ HH.p [ HP.classes C.title ] [ HH.text _title ]
, HH.p [ HP.classes C.subtitle ] [ HH.text subtitle ] , HH.p [ HP.classes C.subtitle ] [ HH.text _subtitle ]
] ]
] ]