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