src/Repositories.hs Modified

@@ -171,7 +171,7 @@
 configured respositories.
 -}
 runIndex :: Config -> Maybe Template -> IO ()
-runIndex config Nothing = return ()
+runIndex _ Nothing = return ()
 runIndex config (Just template) = do
     let paths = repoPaths config
     descriptions <- sequence . fmap (getDescription . flip (</>) "description") $ paths