From 0989b4cab3f144ce9011975bec1bb5a9dead35c1 Mon Sep 17 00:00:00 2001
From: Tissevert <tissevert+devel@marvid.fr>
Date: Sat, 13 Mar 2021 22:45:45 +0100
Subject: [PATCH] Fix broken unit tests due to data type renaming

---
 test/Mock/Blog/URL.hs   | 8 ++++----
 test/XML/Card/Output.hs | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

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)