srid/rib
1
1
Fork 0
mirror of https://github.com/srid/rib.git synced 2024-11-27 01:12:09 +03:00
Code Issues Projects Releases Wiki Activity

Rib.Extra.OpenGraph: add type=website

Browse Source
This commit is contained in:
Sridhar Ratnakumar 2020-03-18 12:44:35 -04:00
parent 729bcd6994
commit b668e2626f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Rib/Extra/OpenGraph.hs
View File

@ -53,6 +53,7 @@ instance ToHtml OpenGraph where
-- TODO: Remaining ADT values & sub-fields
data OGType
= OGType_Article Article
| OGType_Website
deriving (Eq, Show)
instance ToHtml OGType where
@ -61,6 +62,8 @@ instance ToHtml OGType where
OGType_Article article -> do
metaOg "type" "article"
toHtml article
OGType_Website -> do
metaOg "type" "website"
-- TODO: _article_profile :: [Profile]
data Article