19 lines
482 B
Plaintext
19 lines
482 B
Plaintext
|
module App.DNSZone where
|
||
|
|
|
||
|
|
import Prelude
|
||
|
|
|
||
|
|
import Data.Codec.Argonaut (JsonCodec)
|
||
|
|
import Data.Codec.Argonaut as CA
|
||
|
|
import Data.Newtype (class Newtype)
|
||
|
|
import Data.Profunctor (wrapIso)
|
||
|
|
|
||
|
|
newtype DNSZone = DNSZone String
|
||
|
|
|
||
|
|
derive instance newtypeDNSZone :: Newtype DNSZone _
|
||
|
|
derive instance eqDNSZone :: Eq DNSZone
|
||
|
|
derive instance ordDNSZone :: Ord DNSZone
|
||
|
|
|
||
|
|
-- | DNSZone.codec can be used to parse and encode email addresses.
|
||
|
|
codec :: JsonCodec DNSZone
|
||
|
|
codec = wrapIso DNSZone CA.string
|