Do something sensible even if the user gives wrong types in the settings
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 29 May 2015 08:54:56 +0000 (10:54 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 29 May 2015 14:01:53 +0000 (16:01 +0200)
example/settings.yaml
src/ReportTypes.hs

index d15fb1b..b67796e 100644 (file)
@@ -1,6 +1,6 @@
 title: Gipeda itself
 cgitLink: https://github.com/nomeata/gipeda/commit/
-logLink: https://raw.githubusercontent.com/nomeata/ghc-speed-logs/master/{{rev}}.log
+logLink: https://raw.githubusercontent.com/nomeata/ghc-speed-logs/master/{{rev}}.log
 limitRecent: 20
 start: 65b3eede043ff5d4718724d220a82bbc8adc3280
 
index c0af3f8..b35ce3b 100644 (file)
@@ -152,8 +152,9 @@ toFloat (F f) = f
 explain :: S.BenchSettings -> BenchValue -> BenchValue -> (String, ChangeType)
 explain s@(S.numberType -> S.SmallIntegralNT) (I i1) (I i2) = explainSmallInt s i1 i2
 explain s@(S.numberType -> S.IntegralNT)      (I i1) (I i2) = explainInt s i1 i2
-explain s@(S.numberType -> S.FloatingNT)      v1     v2     = explainFloat s (toFloat v1) (toFloat v2)
-explain _ _ _ = noExplanation
+-- Treat everything else as Floats, so that we do something sensible
+-- even if the user did not set the numberType correctly:
+explain s                                     v1     v2     = explainFloat s (toFloat v1) (toFloat v2)
 
 toResult :: S.BenchSettings -> String -> BenchValue -> Maybe BenchValue -> BenchResult
 toResult s name value prev = BenchResult