22 lines
631 B
Haskell
22 lines
631 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
module SchemaOrg.BreadcrumbList ( breadcrumbList ) where
|
|
|
|
import Data.Aeson
|
|
import qualified Data.Text as T
|
|
|
|
breadcrumbList :: [(a, T.Text)] -> (a -> [(T.Text, T.Text)] -> T.Text) -> Value
|
|
breadcrumbList crumbs url = object
|
|
[ ("@context", "http://schema.org")
|
|
, ("@type", "BreadcrumbList")
|
|
, "itemListElement" .= zipWith (listItem url) [1 :: Int ..] crumbs
|
|
]
|
|
listItem :: (a -> [(T.Text, T.Text)] -> T.Text) -> Int -> (a, T.Text) -> Value
|
|
listItem url i (r, t) = object
|
|
[ ("@type", "ListItem")
|
|
, "position" .= i
|
|
, "item" .= object
|
|
[ "@id" .= url r []
|
|
, "name" .= t
|
|
]
|
|
]
|