{-# 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 | $(gitHash) forall a. Eq a => a -> a -> Bool == (String "UNKNOWN" :: String) = String "mattermost-api " forall a. [a] -> [a] -> [a] ++ Version -> String showVersion Version version | Bool otherwise = String "mattermost-api " forall a. [a] -> [a] -> [a] ++ Version -> String showVersion Version version forall a. [a] -> [a] -> [a] ++ String " (" forall a. [a] -> [a] -> [a] ++ $(gitBranch) forall a. [a] -> [a] -> [a] ++ String "@" forall a. [a] -> [a] -> [a] ++ forall a. Int -> [a] -> [a] take Int 7 $(gitHash) forall a. [a] -> [a] -> [a] ++ String ")"