Fix haddock build, fixes #62
This commit is contained in:
parent
8b4c239444
commit
93c17607b5
@ -55,7 +55,7 @@ validate :: (Monad m, MonadLogger m, MonadThrow m, MonadIO m, MonadUnliftIO m)
|
|||||||
validate dls = do
|
validate dls = do
|
||||||
ref <- liftIO $ newIORef 0
|
ref <- liftIO $ newIORef 0
|
||||||
|
|
||||||
-- * verify binary downloads * --
|
-- verify binary downloads --
|
||||||
flip runReaderT ref $ do
|
flip runReaderT ref $ do
|
||||||
-- unique tags
|
-- unique tags
|
||||||
forM_ (M.toList dls) $ \(t, _) -> checkUniqueTags t
|
forM_ (M.toList dls) $ \(t, _) -> checkUniqueTags t
|
||||||
|
Loading…
Reference in New Issue
Block a user