Experiment w/capturing git details

package.yaml

@@ -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

src/Settings.hs

@@ -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)