diff options
Diffstat (limited to 'src/SlackBuilder')
| -rw-r--r-- | src/SlackBuilder/LatestVersionCheck.hs | 7 |
1 files changed, 6 insertions, 1 deletions
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 |