hablo/test/Mock/Blog/URL.hs

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}