Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Christopher League
bookme
Commits
4dc0148f
Commit
4dc0148f
authored
Jun 03, 2018
by
Christopher League
Browse files
Experiment w/capturing git details
parent
a6fbf98e
Changes
2
Hide whitespace changes
Inline
Side-by-side
package.yaml
View file @
4dc0148f
...
...
@@ -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.1
1
&& <1.3
-
case-insensitive >=1.2.0.1
0
&& <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
View file @
4dc0148f
...
...
@@ -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
)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment