Fix broken unit tests due to data type renaming

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}

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)