From 7edb811dc232e7843bbc857109cba959e376cf40 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Thu, 4 Jan 2024 09:36:11 +0100 Subject: Use consistent directory for cloning repositories ... with submodules. --- src/SlackBuilder/LatestVersionCheck.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src/SlackBuilder/LatestVersionCheck.hs') diff --git a/src/SlackBuilder/LatestVersionCheck.hs b/src/SlackBuilder/LatestVersionCheck.hs index a66d2c7..233ea3c 100644 --- a/src/SlackBuilder/LatestVersionCheck.hs +++ b/src/SlackBuilder/LatestVersionCheck.hs @@ -46,6 +46,7 @@ import qualified Data.Aeson.KeyMap as KeyMap import GHC.Records (HasField(..)) import Control.Monad.Trans.Reader (asks) import Control.Monad.IO.Class (MonadIO(..)) +import Control.Monad ((>=>)) data PackageOwner = PackageOwner { owner :: Text @@ -55,7 +56,11 @@ data PackageOwner = PackageOwner -- | Removes the leading "v" from the version string and returns the result if -- it looks like a version. stableTagTransform :: Text -> Maybe Text -stableTagTransform = Text.stripPrefix "v" +stableTagTransform = Text.stripPrefix "v" >=> checkForStable + where + checkForStable tag + | '-' `Text.elem` tag = Nothing + | otherwise = Just tag -- * Packagist -- cgit v1.2.3