33 lines
708 B
Haskell
33 lines
708 B
Haskell
module Mock.Blog.URL (
|
|
noCards
|
|
, simple
|
|
, subPath
|
|
) where
|
|
|
|
import Blog.URL (AbsoluteURL(..), URLs(..))
|
|
import Network.URL (Host(..), Protocol(..))
|
|
|
|
simple :: URLs
|
|
simple = URLs {
|
|
cards = Just (AbsoluteURL {
|
|
Blog.URL.host = Host (HTTP True) "test.net" Nothing
|
|
, urlPath = ""
|
|
, urlParams = []
|
|
})
|
|
, comments = Nothing
|
|
, rss = Nothing
|
|
}
|
|
|
|
subPath :: URLs
|
|
subPath = URLs {
|
|
cards = Just (AbsoluteURL {
|
|
Blog.URL.host = Host (HTTP True) "test.net" Nothing
|
|
, urlPath = "subPath"
|
|
, urlParams = []
|
|
})
|
|
, comments = Nothing
|
|
, rss = Nothing
|
|
}
|
|
|
|
noCards :: URLs
|
|
noCards = simple {cards = Nothing}
|