hablo/test/Mock/Blog/URL.hs

module Mock.Blog.URL (
      noCards
    , simple
  ) where

import Blog.URL (URL(..))

simple :: URL
simple = URL {
      cards = Just "https://test.net"
    , comments = Nothing
    , rss = Nothing
  }

noCards :: URL
noCards = simple {cards = Nothing}