60 lines
1.1 KiB
Haskell
60 lines
1.1 KiB
Haskell
module Mock.URL (
|
|
cdnFavicon
|
|
, hostFavicon
|
|
, localDiscovered
|
|
, localFavicon
|
|
, prefixedTestSite
|
|
, testHost
|
|
, testSite
|
|
) where
|
|
|
|
import Blog.URL (AbsoluteURL(..))
|
|
import Network.URL (Host(..), Protocol(..), URL(..), URLType(..))
|
|
|
|
testHost :: Host
|
|
testHost = Host (HTTP True) "test.net" Nothing
|
|
|
|
testSite :: AbsoluteURL
|
|
testSite = AbsoluteURL {
|
|
Blog.URL.host = testHost
|
|
, urlPath = ""
|
|
, urlParams = []
|
|
}
|
|
|
|
prefixedTestSite :: AbsoluteURL
|
|
prefixedTestSite = AbsoluteURL {
|
|
Blog.URL.host = testHost
|
|
, urlPath = "subPath"
|
|
, urlParams = []
|
|
}
|
|
|
|
cdn :: Host
|
|
cdn = Host (HTTP True) "cdn.net" Nothing
|
|
|
|
cdnFavicon :: URL
|
|
cdnFavicon = URL {
|
|
url_type = Absolute cdn
|
|
, url_path = "favicon.png"
|
|
, url_params = []
|
|
}
|
|
|
|
hostFavicon :: URL
|
|
hostFavicon = URL {
|
|
url_type = HostRelative
|
|
, url_path = "favicon.png"
|
|
, url_params = []
|
|
}
|
|
|
|
localFavicon :: URL
|
|
localFavicon = URL {
|
|
url_type = PathRelative
|
|
, url_path = "favicon.png"
|
|
, url_params = []
|
|
}
|
|
|
|
localDiscovered :: URL
|
|
localDiscovered = URL {
|
|
url_type = PathRelative
|
|
, url_path = "skin/favicon.png"
|
|
, url_params = []
|
|
}
|