{-# LANGUAGE DeriveGeneric #-}

module Data.WellKnownSupportData (WellKnownSupport, makeWellKnownSupport) where

import Data.Aeson
import Data.Aeson.TH
import GHC.Generics (Generic)
import Data.ContactData

type URI = String

data WellKnownSupport = WellKnownSupport
  { contacts :: [Contact]
      , support_page :: URI
  } deriving (Eq, Show, Generic)

instance FromJSON WellKnownSupport where
instance ToJSON WellKnownSupport where

makeWellKnownSupport :: [Contact] -> URI -> WellKnownSupport
makeWellKnownSupport = WellKnownSupport