Tissevert/hablo
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Fix broken unit tests due to data type renaming

Browse source
This commit is contained in:
Tissevert 2021-03-13 22:45:45 +01:00
parent ff7aa0ed56
commit 0989b4cab3
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test/Mock/Blog/URL.hs
View file

@ -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}

2
test/XML/Card/Output.hs
View file

@ -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)