diff --git a/src/App.re b/src/App.re index 9be2a29b..46e3e482 100644 --- a/src/App.re +++ b/src/App.re @@ -2,5 +2,6 @@ let make = () => {
+
; }; \ No newline at end of file diff --git a/src/models/GlobalCatastrophe.re b/src/models/GlobalCatastrophe.re index 97888bb0..6c843644 100644 --- a/src/models/GlobalCatastrophe.re +++ b/src/models/GlobalCatastrophe.re @@ -1,7 +1,7 @@ module Model = { let make = (dateTime: MomentRe.Moment.t, currentDateTime: MomentRe.Moment.t) => { let yearDiff = MomentRe.diff(dateTime, currentDateTime, `days) /. 365.; - Prop.Value.Probability((100. -. yearDiff) /. 100.); + Prop.Value.Probability(0.001 *. yearDiff); }; }; @@ -19,7 +19,7 @@ module Interface = { let model: Prop.Model.t = Prop.{ name: "Global Catastrophe", - description: "The chances of catastrophe per year in the future.", + description: "The chances of having at least one catastrophe per year in the future, assuming no other catastrophe until then.", version: "1.0.0", author: "Ozzie Gooen", inputTypes: [|