{-# LANGUAGE TemplateHaskell #-} module Network.Mattermost.Version (mmApiVersion) where import Data.Version (showVersion) import Development.GitRev (gitBranch, gitHash) import Paths_mattermost_api (version) mmApiVersion :: String mmApiVersion :: String mmApiVersion | $(String gitHash) String -> String -> Bool forall a. Eq a => a -> a -> Bool == (String "UNKNOWN" :: String) = String "mattermost-api " String -> String -> String forall a. [a] -> [a] -> [a] ++ Version -> String showVersion Version version | Bool otherwise = String "mattermost-api " String -> String -> String forall a. [a] -> [a] -> [a] ++ Version -> String showVersion Version version String -> String -> String forall a. [a] -> [a] -> [a] ++ String " (" String -> String -> String forall a. [a] -> [a] -> [a] ++ $(String gitBranch) String -> String -> String forall a. [a] -> [a] -> [a] ++ String "@" String -> String -> String forall a. [a] -> [a] -> [a] ++ Int -> String -> String forall a. Int -> [a] -> [a] take Int 7 $(String gitHash) String -> String -> String forall a. [a] -> [a] -> [a] ++ String ")"