Skip to content
Snippets Groups Projects
Verified Commit 93c17607 authored by Julian Ospald's avatar Julian Ospald :tea:
Browse files

Fix haddock build, fixes #62

parent 8b4c2394
No related branches found
No related tags found
No related merge requests found
Pipeline #24706 failed
Stage: test
Hide whitespace changes
Inline Side-by-side
app/ghcup-gen/Validate.hs
+ 1
− 1
View file @ 93c17607
...@@ -55,7 +55,7 @@ validate :: (Monad m, MonadLogger m, MonadThrow m, MonadIO m, MonadUnliftIO m) ...@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment