Combine test and application dependencies

This commit is contained in:
2023-09-21 23:51:02 +02:00
parent 77c9a2ab54
commit a7114618c1
4 changed files with 31 additions and 7 deletions

View File

@ -63,6 +63,7 @@ instance Show DownloadTemplate
where
show (DownloadTemplate components) = concatMap show components
-- | Replaces placeholders in the URL template with the given version.
renderDownloadWithVersion :: MonadThrow m => DownloadTemplate -> Text -> m URI
renderDownloadWithVersion (DownloadTemplate components) version =
URI.mkURI $ foldr f "" components