blob: c9c682906237ad2c6aa155f5508b74ed66cee65d (
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 Felix.Version (info, infoBuilder) where
import Data.Functor
import Data.Semigroup
import Data.Text (Text)
import Data.Version
import Paths_felix qualified as Felix
import TextBuilder
-- | Informational text about the version number (extracted from the cabal file).
info :: Text
info = toText infoBuilder
infoBuilder :: TextBuilder
infoBuilder = text "Version " <> versionToBuilder Felix.version
versionToBuilder :: Version -> TextBuilder
versionToBuilder ver = intercalate (char '.') (decimal <$> versionBranch ver)
|
