module Hadolint.Meta
  ( getVersion,
    getShortVersion,
  )
where

import Data.Version (showVersion)
import Development.GitRev (gitDirty, gitDescribe)
import Paths_hadolint (version)


getVersion :: String
getVersion :: String
getVersion = String
"Haskell Dockerfile Linter " String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
getShortVersion

getShortVersion :: String
getShortVersion :: String
getShortVersion = String
v String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
d
  where
    gitVersion :: String
gitVersion = $(String
gitDescribe)
    cabalVersion :: String
cabalVersion = Version -> String
showVersion Version
version
    dirty :: Bool
dirty = $(Bool
gitDirty)
    v :: String
v = case String
gitVersion of
      String
"UNKNOWN" -> String
cabalVersion String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
"-no-git"
      String
_ -> String
gitVersion
    d :: String
d = if Bool
dirty then String
"-dirty" else String
""