srid/rib
1
1
Fork 0
mirror of https://github.com/srid/rib.git synced 2024-11-22 11:23:02 +03:00
Code Issues Projects Releases Wiki Activity

Run ormolu

Browse Source
This commit is contained in:
Sridhar Ratnakumar 2020-05-11 22:27:24 -04:00
parent 4b3d374aec
commit c623ff953d
1 changed files with 16 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,16 +21,15 @@ import qualified Text.URI as URI
-- The OpenGraph metadata -- The OpenGraph metadata
-- --
-- This type can be directly rendered to HTML using `toHTML`. -- This type can be directly rendered to HTML using `toHTML`.
data OpenGraph data OpenGraph = OpenGraph
= OpenGraph { _openGraph_title :: Text,
{ _openGraph_title :: Text, _openGraph_url :: Maybe URI.URI,
_openGraph_url :: Maybe URI.URI, _openGraph_author :: Maybe Text,
_openGraph_author :: Maybe Text, _openGraph_description :: Maybe Text,
_openGraph_description :: Maybe Text, _openGraph_siteName :: Text,
_openGraph_siteName :: Text, _openGraph_type :: Maybe OGType,
_openGraph_type :: Maybe OGType, _openGraph_image :: Maybe URI.URI
_openGraph_image :: Maybe URI.URI }
}
deriving (Eq, Show) deriving (Eq, Show)
instance ToHtml OpenGraph where instance ToHtml OpenGraph where
@ -66,14 +65,13 @@ instance ToHtml OGType where
metaOg "type" "website" metaOg "type" "website"
-- TODO: _article_profile :: [Profile] -- TODO: _article_profile :: [Profile]
data Article data Article = Article
= Article { _article_section :: Maybe Text,
{ _article_section :: Maybe Text, _article_modifiedTime :: Maybe UTCTime,
_article_modifiedTime :: Maybe UTCTime, _article_publishedTime :: Maybe UTCTime,
_article_publishedTime :: Maybe UTCTime, _article_expirationTime :: Maybe UTCTime,
_article_expirationTime :: Maybe UTCTime, _article_tag :: [Text]
_article_tag :: [Text] }
}
deriving (Eq, Show) deriving (Eq, Show)
instance ToHtml Article where instance ToHtml Article where