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