diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-09-22 07:47:46 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-09-22 07:47:46 +0200 |
| commit | ec704e267b1344ca30654850b7d127198846d081 (patch) | |
| tree | c50c96a7707a16ca7454d23a415e216eca966a99 /lib/SlackBuilder/Package.hs | |
| parent | 840290491f45157249ba97fb8f5e4cae9e04dc90 (diff) | |
| download | slackbuilder-ec704e267b1344ca30654850b7d127198846d081.tar.gz | |
Fix renderDownloadWithVersion concatenation order
Diffstat (limited to 'lib/SlackBuilder/Package.hs')
| -rw-r--r-- | lib/SlackBuilder/Package.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |