src/Version.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

module Version (
    versionLine,
) where

import Paths_erebos_webapp (version)
import Data.Version (showVersion)
import Version.Git

{-# NOINLINE versionLine #-}
versionLine :: String
versionLine = do
    let ver = case gitVersion of
            Just gver
                -> "git " <> gver
            _   -> "v" <> showVersion version
     in ver