Commit 4dc0148f authored by Christopher League's avatar Christopher League

Experiment w/capturing git details

parent a6fbf98e
......@@ -8,13 +8,11 @@ dependencies:
- base >=4.8.2.0 && <4.9 || >=4.9.1.0 && <5
- aeson >=0.6 && <1.3
- blaze-markup >=0.8.2.1 && <0.9
- blaze-markup >=0.8.2.0 && <0.9
- bytestring >=0.9 && <0.11
- case-insensitive >=1.2.0.11 && <1.3
- case-insensitive >=1.2.0.10 && <1.3
- classy-prelude >=1.4 && <1.5
- classy-prelude-conduit >=1.4 && <1.5
- classy-prelude-yesod >=1.4 && <1.5
- conduit >=1.0 && <2.0
- containers >=0.5.10.2 && <0.6
- data-default >=0.7.1.1 && <0.8
- directory >=1.1 && <1.4
......@@ -22,11 +20,11 @@ dependencies:
- fast-logger >=2.2 && <2.5
- file-embed >=0.0.10.1 && <0.1
- foreign-store >=0.2 && <0.3
- gitrev >=1.3.1 && <1.4
- gogol >=0.3.0 && <0.4
- gogol-apps-calendar >=0.3.0 && <0.4
- hjsmin >=0.1 && <0.3
- http-client-tls >=0.3 && <0.4
- http-conduit >=2.3 && <2.4
- http-types >=0.12.1 && <0.13
- lens >=4.16.1 && <4.17
- monad-control >=0.3 && <1.1
......@@ -37,10 +35,10 @@ dependencies:
- text >=0.11 && <2.0
- time >=1.8.0.2 && <1.9
- transformers >=0.5.2.0 && <0.6
- tz >=0.1.3.1 && <0.2
- tz >=0.1.3.0 && <0.2
- unordered-containers >=0.2.9.0 && <0.3
- vector >=0.12.0.1 && <0.13
- wai >=3.2.1.2 && <3.3
- wai >=3.2.1.1 && <3.3
- wai-extra >=3.0 && <3.1
- wai-logger >=2.2 && <2.4
- warp >=3.0 && <3.3
......
......@@ -40,6 +40,7 @@ import Data.Time.Zones (TZ)
import Data.Time.Zones.All (TZLabel, fromTZName, toTZName)
import qualified Data.Time.Zones.All as TZ
import Data.Yaml (decodeEither')
import Development.GitRev
import Language.Haskell.TH.Syntax (Exp, Name, Q)
import Network.Wai.Handler.Warp (HostPreference)
import Yesod.Default.Config2 (applyEnvValue, configSettingsYml)
......@@ -221,3 +222,13 @@ varGoogleSecret = "BOOKME_GOOGLE_SECRET"
-- | Environment variable used for Google refresh token.
varGoogleRefreshToken :: IsString s => s
varGoogleRefreshToken = "BOOKME_GOOGLE_REFRESH"
showGit :: IO ()
showGit = do
say $ "gitBranch = " <> tshow $(gitBranch)
say $ "gitCommitCount = " <> tshow $(gitCommitCount)
say $ "gitCommitDate = " <> tshow $(gitCommitDate)
say $ "gitDescribe = " <> tshow $(gitDescribe)
say $ "gitDirty = " <> tshow $(gitDirty)
say $ "gitDirtyTracked = " <> tshow $(gitDirtyTracked)
say $ "gitHash = " <> tshow $(gitHash)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment