committed by
Steve Chavez
parent
041d4f8ed2
commit
8e35d543bd
@@ -11,11 +11,11 @@ import Protolude
|
||||
version :: [Text]
|
||||
version = T.splitOn "." VERSION_postgrest
|
||||
|
||||
-- | User friendly version number such as '1.1.1'.
|
||||
-- Pre-release versions are tagged as such, e.g., '1.1 (pre-release)'.
|
||||
-- | User friendly version number such as '14.0'.
|
||||
-- Pre-release versions are tagged as such, e.g., '15 (pre-release)'.
|
||||
prettyVersion :: ByteString
|
||||
prettyVersion =
|
||||
VERSION_postgrest <> preRelease
|
||||
(encodeUtf8 . T.intercalate "." $ take 2 version) <> preRelease
|
||||
where
|
||||
preRelease = if isPreRelease then " (pre-release)" else mempty
|
||||
|
||||
@@ -29,7 +29,7 @@ docsVersion
|
||||
| otherwise = "v" <> T.intercalate "." (take 1 version)
|
||||
|
||||
|
||||
-- | Versions with two components (e.g., '1.1') are treated as pre-releases.
|
||||
-- | Versions with one components (e.g., '15') are treated as pre-releases.
|
||||
isPreRelease :: Bool
|
||||
isPreRelease =
|
||||
length version == 2
|
||||
length version == 1
|
||||
|
||||
Reference in New Issue
Block a user