blob: 2293e3c09292656ffeddd99dfe2a8a86b847ca25 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{-# LANGUAGE NoImplicitPrelude #-}
module Version (info, infoBuilder) where
import Data.Functor
import Data.Semigroup
import Data.Text (Text)
import Data.Version
import Paths_zf qualified as ZF
import Text.Builder
-- | Informational text about the version number (extracted from the cabal file).
info :: Text
info = run infoBuilder
infoBuilder :: Builder
infoBuilder = text "Version " <> versionToBuilder ZF.version
versionToBuilder :: Version -> Builder
versionToBuilder ver = intercalate (char '.') (decimal <$> versionBranch ver)
|
