GitHash

Some handy Template Haskell splices for including the current git hash and branch in the code of your project. Useful for including in panic messages, --version output, or diagnostic info for more informative bug reports.

{-# LANGUAGE TemplateHaskell #-}
import GitHash

panic :: String -> a
panic msg = error panicMsg
  where panicMsg =
          concat [ "[panic ", $(gitBranch), "@", $(gitHash)
                 , " (", $(gitCommitDate), ")"
                 , " (", $(gitCommitCount), " commits in HEAD)"
                 , dirty, "] ", msg ]
        dirty | $(gitDirty) = " (uncommitted files present)"
              | otherwise   = ""

main = panic "oh no!"

% stack runghc Example.hs
Example.hs: [panic master@2ae047ba5e4a6f0f3e705a43615363ac006099c1 (Mon Jan 11 11:50:59 2016 -0800) (14 commits in HEAD) (uncommitted files present)] oh no!

WARNING: None of this will work in a git repository without any commits.

Since: githash-0.1.0.0

Types

data GitInfo

Various pieces of information about a Git repository.

Since: githash-0.1.0.0

Instances

Show GitInfo

Defined in GitHash

Methods

showsPrec :: Int -> GitInfo -> ShowS

show :: GitInfo -> String

showList :: [GitInfo] -> ShowS

Lift GitInfo

Defined in GitHash

Methods

lift :: GitInfo -> Q Exp

data GitHashException

Exceptions which can occur when using this library's functions.

Since: githash-0.1.0.0

Constructors

GHECouldn'tReadFile !FilePath !IOException

GHEInvalidCommitCount !FilePath !String

GHEGitRunFailed !FilePath ![String] !ExitCode !String !String

Instances

Eq GitHashException

Defined in GitHash

Methods

(==) :: GitHashException -> GitHashException -> Bool

(/=) :: GitHashException -> GitHashException -> Bool

Show GitHashException

Defined in GitHash

Methods

showsPrec :: Int -> GitHashException -> ShowS

show :: GitHashException -> String

showList :: [GitHashException] -> ShowS

Exception GitHashException

Defined in GitHash

Methods

toException :: GitHashException -> SomeException

fromException :: SomeException -> Maybe GitHashException

displayException :: GitHashException -> String

Getters

giHash :: GitInfo -> String

The hash of the most recent commit.

Since: githash-0.1.0.0

giBranch :: GitInfo -> String

The hash of the most recent commit.

Since: githash-0.1.0.0

giDirty :: GitInfo -> Bool

giCommitDate :: GitInfo -> String

giCommitCount :: GitInfo -> Int

Creators

getGitInfo :: FilePath -> IO (Either GitHashException GitInfo)

Get the GitInfo for the given root directory. Root directory should be the directory containing the .git directory.

Since: githash-0.1.0.0

getGitRoot :: FilePath -> IO (Either GitHashException FilePath)

Get the root directory of the Git repo containing the given file path.

Since: githash-0.1.0.0

Template Haskell

tGitInfo :: FilePath -> Q (TExp GitInfo)

Load up the GitInfo value at compile time for the given directory.

Since: githash-0.1.0.0

tGitInfoCwd :: Q (TExp GitInfo)

Load up the GitInfo value at compile time for the current working directory.

Since: githash-0.1.0.0