Add meta description helper function.

This commit is contained in:
Dillon Kearns 2019-08-05 10:57:14 -07:00
parent 437018ddf6
commit 51f24dcc9b
2 changed files with 6 additions and 2 deletions

View File

@ -1,4 +1,4 @@
module Pages.Head exposing (Tag, canonicalLink, metaName, metaProperty, toJson)
module Pages.Head exposing (Tag, canonicalLink, description, metaName, metaProperty, toJson)
import Json.Encode
@ -42,6 +42,10 @@ metaProperty property content =
]
description descriptionValue =
metaName "description" descriptionValue
{-| Example:
metaName

View File

@ -193,7 +193,7 @@ pageTags canonicalUrl metadata =
image =
""
in
[ Head.metaName "description" description
[ Head.description description
, Head.metaName "image" image
]
++ SocialMeta.summaryLarge