From 2b48a574e8b9fed03a5c1969af4bb1e338f1be26 Mon Sep 17 00:00:00 2001 From: adambrangenberg Date: Sun, 7 Dec 2025 06:36:43 +0100 Subject: implemented section 1-3 --- src/Data/WellKnownSupportData.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 src/Data/WellKnownSupportData.hs (limited to 'src/Data/WellKnownSupportData.hs') diff --git a/src/Data/WellKnownSupportData.hs b/src/Data/WellKnownSupportData.hs new file mode 100644 index 0000000..94e434c --- /dev/null +++ b/src/Data/WellKnownSupportData.hs @@ -0,0 +1,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 -- cgit v1.2.3