35 lines
977 B
Haskell
35 lines
977 B
Haskell
module Mock.Article (
|
|
hostRelativeImage
|
|
, noDescription
|
|
, noImage
|
|
, noMeta
|
|
, remoteImage
|
|
, simple
|
|
) where
|
|
|
|
import Article (Article(..))
|
|
import qualified Data.Map as Map (fromList, insert)
|
|
import Markdown (Markdown(..))
|
|
import Mock.Markdown (article)
|
|
|
|
simple :: Article
|
|
simple = Article article
|
|
|
|
noImage :: Article
|
|
noImage = Article $ article {metadata = Map.fromList [("summary", "It's a test")]}
|
|
|
|
remoteImage :: Article
|
|
remoteImage = Article $ article {metadata = setImage $ metadata article}
|
|
where
|
|
setImage = Map.insert "featuredImage" "https://somewhere.el.se/test.png"
|
|
|
|
hostRelativeImage :: Article
|
|
hostRelativeImage = Article $ article {metadata = setImage $ metadata article}
|
|
where
|
|
setImage = Map.insert "featuredImage" "/media/test.png"
|
|
|
|
noDescription :: Article
|
|
noDescription = Article $ article {metadata = Map.fromList [("featuredImage", "test.png")]}
|
|
|
|
noMeta :: Article
|
|
noMeta = Article $ article {metadata = Map.fromList []}
|