36 lines
681 B
Haskell
36 lines
681 B
Haskell
|
module Mock.URL (
|
||
|
|
cdnFavicon
|
||
|
|
, localDiscovered
|
||
|
|
, localFavicon
|
||
|
|
, testHost
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Network.URL (Host(..), Protocol(..), URL(..), URLType(..))
|
||
|
|
|
||
|
|
testHost :: Host
|
||
|
|
testHost = Host (HTTP True) "test.net" Nothing
|
||
|
|
|
||
|
|
cdn :: Host
|
||
|
|
cdn = Host (HTTP True) "cdn.net" Nothing
|
||
|
|
|
||
|
|
cdnFavicon :: URL
|
||
|
|
cdnFavicon = URL {
|
||
|
|
url_type = Absolute cdn
|
||
|
|
, url_path = "favicon.png"
|
||
|
|
, url_params = []
|
||
|
|
}
|
||
|
|
|
||
|
|
localFavicon :: URL
|
||
|
|
localFavicon = URL {
|
||
|
|
url_type = HostRelative
|
||
|
|
, url_path = "favicon.png"
|
||
|
|
, url_params = []
|
||
|
|
}
|
||
|
|
|
||
|
|
localDiscovered :: URL
|
||
|
|
localDiscovered = URL {
|
||
|
|
url_type = HostRelative
|
||
|
|
, url_path = "skin/favicon.png"
|
||
|
|
, url_params = []
|
||
|
|
}
|