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 = []
  }