From ec704e267b1344ca30654850b7d127198846d081 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Fri, 22 Sep 2023 07:47:46 +0200 Subject: Fix renderDownloadWithVersion concatenation order --- lib/SlackBuilder/Package.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/SlackBuilder') diff --git a/lib/SlackBuilder/Package.hs b/lib/SlackBuilder/Package.hs index a447609..bd53447 100644 --- a/lib/SlackBuilder/Package.hs +++ b/lib/SlackBuilder/Package.hs @@ -68,8 +68,8 @@ renderDownloadWithVersion :: MonadThrow m => DownloadTemplate -> Text -> m URI renderDownloadWithVersion (DownloadTemplate components) version = URI.mkURI $ foldr f "" components where - f (StaticPlaceholder staticPlaceholder) accumulator = accumulator <> staticPlaceholder - f VersionPlaceholder accumulator = accumulator <> version + f (StaticPlaceholder staticPlaceholder) = (staticPlaceholder <>) + f VersionPlaceholder = (version <>) -- | Function used to get the latest version of a source. data Updater = Updater (SlackBuilderT (Maybe Text)) DownloadTemplate -- cgit v1.2.3