hablo/test/Mock/Blog/URL.hs

26 lines
427 B
Haskell
Raw Permalink Normal View History

module Mock.Blog.URL (
noCards
, simple
, subPath
) where
import Blog.URL (URLs(..))
import Mock.URL (prefixedTestSite, testSite)
simple :: URLs
simple = URLs {
cards = Just testSite
, comments = Nothing
, rss = Nothing
}
subPath :: URLs
subPath = URLs {
cards = Just prefixedTestSite
, comments = Nothing
, rss = Nothing
}
noCards :: URLs
noCards = simple {cards = Nothing}