module Network.API.Dozens.API
(
GetZone, getZone
, I.CreateZone(..), createZone
, I.UpdateZone(..), updateZone
, I.DeleteZone(..), deleteZone
, I.GetRecords(..), getRecords
, I.CreateRecord(..), createRecord
, I.UpdateRecord(..), updateRecord
, I.DeleteRecord(..), deleteRecord
, I.User, I.Key, I.ZoneName, I.MailAddress
) where
import qualified Network.API.Dozens.Internal as I
data GetZone = GetZone
deriving (Show, Read, Eq)
getZone :: GetZone
getZone = GetZone
createZone :: I.CreateZone
createZone = I.CreateZone "" Nothing Nothing
updateZone :: I.UpdateZone
updateZone = I.UpdateZone (I.ZoneId 0) ""
deleteZone :: I.DeleteZone
deleteZone = I.DeleteZone (I.ZoneId 0)
getRecords :: I.GetRecords
getRecords = I.GetRecords ""
createRecord :: I.CreateRecord
createRecord = I.CreateRecord "" "" I.A Nothing Nothing ""
updateRecord :: I.UpdateRecord
updateRecord = I.UpdateRecord (I.RecordId 0) Nothing Nothing Nothing
deleteRecord :: I.DeleteRecord
deleteRecord = I.DeleteRecord (I.RecordId 0)