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 , simple
) where ) where
import Blog.URL (URL(..)) import Blog.URL (URLs(..))
simple :: URL simple :: URLs
simple = URL { simple = URLs {
cards = Just "https://test.net" cards = Just "https://test.net"
, comments = Nothing , comments = Nothing
, rss = Nothing , rss = Nothing
} }
noCards :: URL noCards :: URLs
noCards = simple {cards = Nothing} noCards = simple {cards = Nothing}

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

@ -2,7 +2,7 @@ module XML.Card.Output (
test test
) where ) where
import Blog (Blog(..), URL(..)) import Blog (Blog(..), URLs(..))
import Control.Monad.IO.Class (MonadIO(..)) import Control.Monad.IO.Class (MonadIO(..))
import Control.Monad.Reader (asks, runReaderT) import Control.Monad.Reader (asks, runReaderT)
import qualified Data.Text.Lazy.IO as Lazy (readFile) import qualified Data.Text.Lazy.IO as Lazy (readFile)