git.iko.soy/typeable/gitrev
on master help sign in
update Example.hs in haddock
e90c3b1Adam C. Foltzer
src/Development/GitRev.hs+2−1
compare with master
unifiedsplit
@@ -18,6 +18,7 @@
18-- > panic msg = error panicMsg
18-- > panic msg = error panicMsg
19-- > where panicMsg =
19-- > where panicMsg =
20-- > concat [ "[panic ", $(gitBranch), "@", $(gitHash)
20-- > concat [ "[panic ", $(gitBranch), "@", $(gitHash)
21+-- > , " (", $(gitCommitDate), ")"
21-- > , " (", $(gitCommitCount), " commits in HEAD)"
22-- > , " (", $(gitCommitCount), " commits in HEAD)"
22-- > , dirty, "] ", msg ]
23-- > , dirty, "] ", msg ]
23-- > dirty | $(gitDirty) = " (uncommitted files present)"
24-- > dirty | $(gitDirty) = " (uncommitted files present)"
@@ -26,7 +27,7 @@
26-- > main = panic "oh no!"
27-- > main = panic "oh no!"
27--
28--
28-- > % cabal exec runhaskell Example.hs
29-- > % cabal exec runhaskell Example.hs
29−-- > Example.hs: [panic master@2702e69355c978805064543489c351b61ac6760b (6 commits in HEAD) (uncommitted files present)] oh no!
30+-- > Example.hs: [panic master@2ae047ba5e4a6f0f3e705a43615363ac006099c1 (Mon Jan 11 11:50:59 2016 -0800) (14 commits in HEAD) (uncommitted files present)] oh no!
30
31
31module Development.GitRev (gitHash, gitBranch, gitDirty, gitCommitCount, gitCommitDate) where
32module Development.GitRev (gitHash, gitBranch, gitDirty, gitCommitCount, gitCommitDate) where
32
33