module Hadolint.Meta
  ( getVersion,
    getShortVersion,
  )
where

import qualified Development.GitRev


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
    version :: String
version = $(String
Development.GitRev.gitDescribe)
    dirty :: Bool
dirty = $(Bool
Development.GitRev.gitDirty)
    v :: String
v = case String
version of
      String
"UNKONWN" -> String
"-no-git"
      String
_ -> String
version
    d :: String
d = if Bool
dirty then String
"-dirty" else String
""