17 lines
255 B
Haskell
17 lines
255 B
Haskell
|
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}
|