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 ""