Generalize cgitLink to diffLink
authorJoachim Breitner <mail@joachim-breitner.de>
Mon, 1 Jun 2015 15:20:01 +0000 (17:20 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Mon, 1 Jun 2015 15:20:01 +0000 (17:20 +0200)
binary/settings.yaml
example/settings.yaml
ghc/settings.yaml
site/js/gipeda.js
src/BenchmarkSettings.hs
src/ReportTypes.hs

index 19dddd0..562bf63 100644 (file)
@@ -1,5 +1,5 @@
 title: Binary
-cgitLink: https://github.com/nomeata/gipeda/commit/
+diffLink: https://github.com/kolmodin/binary/commit/{{rev}}
 # logLink: https://raw.githubusercontent.com/nomeata/ghc-speed-logs/master/{{rev}}.log
 limitRecent: 20
 start: 4853c7b467409468ac9029558c8ed3caa4a4be6c
index ee0b96c..433de22 100644 (file)
@@ -1,5 +1,5 @@
 title: Gipeda itself
-cgitLink: https://github.com/nomeata/gipeda/commit/
+diffLink: https://github.com/nomeata/gipeda/commit/{{rev}}
 # logLink: https://raw.githubusercontent.com/nomeata/ghc-speed-logs/master/{{rev}}.log
 limitRecent: 20
 start: 65b3eede043ff5d4718724d220a82bbc8adc3280
index 5af21ce..f892f1b 100644 (file)
@@ -1,5 +1,5 @@
 title: GHC Speed
-cgitLink: https://git.haskell.org/ghc.git
+diffLink: https://git.haskell.org/ghc.git/commitdiff/{{rev}}
 logLink: https://raw.githubusercontent.com/nomeata/ghc-speed-logs/master/{{rev}}.log
 limitRecent: 50
 start: 55e7ab1210975e6276f3cab3ac0e1f35bcd772f0
index b96fa3f..d45ae47 100644 (file)
@@ -170,7 +170,7 @@ Handlebars.registerHelper('graphLink', function(benchName, hl1, hl2) {
     return "#" + routes.graph.url(benchName,hls);
 });
 Handlebars.registerHelper('diffLink', function(rev1, rev2) {
-  return data.settings.cgitLink + "/commitdiff/" + rev2
+    return Handlebars.compile(data.settings.diffLink)({base: rev1, rev: rev2});
 });
 Handlebars.registerHelper('logLink', function(rev, options) {
   if (data.settings.logLink) {
index 14a5b65..2354999 100644 (file)
@@ -84,7 +84,7 @@ instance FromJSON S where
 
 data Settings = Settings
    { title :: String
-   , cgitLink :: String
+   , diffLink :: String
    , logLink :: Maybe String
    , limitRecent :: Integer
    , start :: String
@@ -95,7 +95,7 @@ data Settings = Settings
 instance FromJSON Settings where
     parseJSON (Object v) =
         Settings <$> v .: "title"
-                 <*> v .: "cgitLink"
+                 <*> v .: "diffLink"
                  <*> v .:? "logLink"
                  <*> v .: "limitRecent"
                  <*> v .: "start"
index 03308d2..c8e1d30 100644 (file)
@@ -16,7 +16,7 @@ import qualified BenchmarkSettings as S
 
 data ClientSettings = ClientSettings
    { title :: String
-   , cgitLink :: String
+   , diffLink :: String
    , logLink :: String
    }
  deriving (Generic)