diff --git a/test/Mock/Blog/URL.hs b/test/Mock/Blog/URL.hs index 5d14fa4..33ebe28 100644 --- a/test/Mock/Blog/URL.hs +++ b/test/Mock/Blog/URL.hs @@ -3,14 +3,14 @@ module Mock.Blog.URL ( , simple ) where -import Blog.URL (URL(..)) +import Blog.URL (URLs(..)) -simple :: URL -simple = URL { +simple :: URLs +simple = URLs { cards = Just "https://test.net" , comments = Nothing , rss = Nothing } -noCards :: URL +noCards :: URLs noCards = simple {cards = Nothing} diff --git a/test/XML/Card/Output.hs b/test/XML/Card/Output.hs index c3fb71a..3da387b 100644 --- a/test/XML/Card/Output.hs +++ b/test/XML/Card/Output.hs @@ -2,7 +2,7 @@ module XML.Card.Output ( test ) where -import Blog (Blog(..), URL(..)) +import Blog (Blog(..), URLs(..)) import Control.Monad.IO.Class (MonadIO(..)) import Control.Monad.Reader (asks, runReaderT) import qualified Data.Text.Lazy.IO as Lazy (readFile)