From 7b28a1cdf2c0b5f431377f218720698e8dfdbb47 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Wed, 14 Sep 2022 10:40:41 +1000 Subject: Prepending level 1 heading --- src/Servall/Types.hs | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) (limited to 'src/Servall/Types.hs') diff --git a/src/Servall/Types.hs b/src/Servall/Types.hs index 69c2045..794482c 100644 --- a/src/Servall/Types.hs +++ b/src/Servall/Types.hs @@ -1,8 +1,6 @@ +{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} -module Servall.Types - ( WikiTemplate(..) - , Video(..) - ) where +module Servall.Types where import Data.Aeson ( (.:) , (.=) @@ -13,6 +11,7 @@ import Data.Aeson ( (.:) ) import qualified Data.HashMap.Lazy as HM import Data.Text ( Text ) +import GHC.Generics ( Generic ) data WikiTemplate = WikiTemplate { wtName :: Text @@ -48,3 +47,17 @@ instance ToJSON Video where , "description" .= desc , "duration" .= duration ] + + +data WikiSummary = WikiSummary + { wsTitle :: Text + , wsWikbase :: Text + , wsPageId :: Int + } + deriving (Show, Eq, Generic) + +instance FromJSON WikiSummary where + parseJSON (Object o) = + WikiSummary <$> o .: "title" <*> o .: "wikibase_item" <*> o .: "pageid" + +instance ToJSON WikiSummary -- cgit v1.2.3