{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Neuron.Version.RepoVersion
( version,
)
where
import Development.GitRev (gitDescribe, gitDirty)
import Relude
version :: Text
version :: Text
version = [Char] -> Text
forall a. ToText a => a -> Text
toText ([Char] -> Text) -> [Char] -> Text
forall a b. (a -> b) -> a -> b
$ $(gitDescribe) [Char] -> [Char] -> [Char]
forall a. Semigroup a => a -> a -> a
<> [Char] -> [Char] -> Bool -> [Char]
forall a. a -> a -> Bool -> a
bool "" "-dirty" $(Bool
gitDirty)