blob: 94e434c88131aec11f441bd57644263d25e587ea (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{-# 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
|