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

Experiment w/capturing git details

parent a6fbf98e
...@@ -8,13 +8,11 @@ dependencies: ...@@ -8,13 +8,11 @@ dependencies:
- base >=4.8.2.0 && <4.9 || >=4.9.1.0 && <5 - base >=4.8.2.0 && <4.9 || >=4.9.1.0 && <5
- aeson >=0.6 && <1.3 - 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 - 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 >=1.4 && <1.5
- classy-prelude-conduit >=1.4 && <1.5
- classy-prelude-yesod >=1.4 && <1.5 - classy-prelude-yesod >=1.4 && <1.5
- conduit >=1.0 && <2.0
- containers >=0.5.10.2 && <0.6 - containers >=0.5.10.2 && <0.6
- data-default >=0.7.1.1 && <0.8 - data-default >=0.7.1.1 && <0.8
- directory >=1.1 && <1.4 - directory >=1.1 && <1.4
...@@ -22,11 +20,11 @@ dependencies: ...@@ -22,11 +20,11 @@ dependencies:
- fast-logger >=2.2 && <2.5 - fast-logger >=2.2 && <2.5
- file-embed >=0.0.10.1 && <0.1 - file-embed >=0.0.10.1 && <0.1
- foreign-store >=0.2 && <0.3 - foreign-store >=0.2 && <0.3
- gitrev >=1.3.1 && <1.4
- gogol >=0.3.0 && <0.4 - gogol >=0.3.0 && <0.4
- gogol-apps-calendar >=0.3.0 && <0.4 - gogol-apps-calendar >=0.3.0 && <0.4
- hjsmin >=0.1 && <0.3 - hjsmin >=0.1 && <0.3
- http-client-tls >=0.3 && <0.4 - http-client-tls >=0.3 && <0.4
- http-conduit >=2.3 && <2.4
- http-types >=0.12.1 && <0.13 - http-types >=0.12.1 && <0.13
- lens >=4.16.1 && <4.17 - lens >=4.16.1 && <4.17
- monad-control >=0.3 && <1.1 - monad-control >=0.3 && <1.1
...@@ -37,10 +35,10 @@ dependencies: ...@@ -37,10 +35,10 @@ dependencies:
- text >=0.11 && <2.0 - text >=0.11 && <2.0
- time >=1.8.0.2 && <1.9 - time >=1.8.0.2 && <1.9
- transformers >=0.5.2.0 && <0.6 - 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 - unordered-containers >=0.2.9.0 && <0.3
- vector >=0.12.0.1 && <0.13 - 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-extra >=3.0 && <3.1
- wai-logger >=2.2 && <2.4 - wai-logger >=2.2 && <2.4
- warp >=3.0 && <3.3 - warp >=3.0 && <3.3
......
...@@ -40,6 +40,7 @@ import Data.Time.Zones (TZ) ...@@ -40,6 +40,7 @@ import Data.Time.Zones (TZ)
import Data.Time.Zones.All (TZLabel, fromTZName, toTZName) import Data.Time.Zones.All (TZLabel, fromTZName, toTZName)
import qualified Data.Time.Zones.All as TZ import qualified Data.Time.Zones.All as TZ
import Data.Yaml (decodeEither') import Data.Yaml (decodeEither')
import Development.GitRev
import Language.Haskell.TH.Syntax (Exp, Name, Q) import Language.Haskell.TH.Syntax (Exp, Name, Q)
import Network.Wai.Handler.Warp (HostPreference) import Network.Wai.Handler.Warp (HostPreference)
import Yesod.Default.Config2 (applyEnvValue, configSettingsYml) import Yesod.Default.Config2 (applyEnvValue, configSettingsYml)
...@@ -221,3 +222,13 @@ varGoogleSecret = "BOOKME_GOOGLE_SECRET" ...@@ -221,3 +222,13 @@ varGoogleSecret = "BOOKME_GOOGLE_SECRET"
-- | Environment variable used for Google refresh token. -- | Environment variable used for Google refresh token.
varGoogleRefreshToken :: IsString s => s varGoogleRefreshToken :: IsString s => s
varGoogleRefreshToken = "BOOKME_GOOGLE_REFRESH" 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