From 58ac5bcd73b3b333406c046616cde1fabb394469 Mon Sep 17 00:00:00 2001
From: Ozzie Gooen <ozzieagooen@gmail.com>
Date: Wed, 26 Feb 2020 10:32:10 +0000
Subject: [PATCH] Added filename to link directly to files

---
 src/interface/FormBuilder.re    | 7 +++++++
 src/interface/Prop.re           | 1 +
 src/models/EAFunds.re           | 1 +
 src/models/GlobalCatastrophe.re | 1 +
 src/models/Human.re             | 4 +++-
 5 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/src/interface/FormBuilder.re b/src/interface/FormBuilder.re
index 0b7b85e3..abef0f10 100644
--- a/src/interface/FormBuilder.re
+++ b/src/interface/FormBuilder.re
@@ -56,6 +56,13 @@ module ModelForm = {
         </h1>
         <p> {model.description |> ReasonReact.string} </p>
         <p> {model.author |> ReasonReact.string} </p>
+        <ForetoldComponents.Link
+          href={
+            "https://github.com/foretold-app/estiband/blob/master/src/models/"
+            ++ model.fileName
+          }>
+          {"Model Code" |> ReasonReact.string}
+        </ForetoldComponents.Link>
         {Combo.inputTypeValuePairs(formState.combo)
          |> E.A.fmap(((type_: TypeWithMetadata.t, value)) =>
               <div className="box-border">
diff --git a/src/interface/Prop.re b/src/interface/Prop.re
index d81f22c2..cd7a78a2 100644
--- a/src/interface/Prop.re
+++ b/src/interface/Prop.re
@@ -242,6 +242,7 @@ module Model = {
   type t = {
     name: string,
     id: string,
+    fileName: string,
     description: string,
     author: string,
     version: string,
diff --git a/src/models/EAFunds.re b/src/models/EAFunds.re
index 95912a7d..96407d88 100644
--- a/src/models/EAFunds.re
+++ b/src/models/EAFunds.re
@@ -220,6 +220,7 @@ module Interface = {
       name: "EA Funds: Donations & Payouts",
       description: "Calculate the payments and payouts of CEA Funds based on existing data.",
       version: "1.0.0",
+      fileName: "EAFunds.re",
       author: "Ozzie Gooen",
       inputTypes: [|
         TypeWithMetadata.make(
diff --git a/src/models/GlobalCatastrophe.re b/src/models/GlobalCatastrophe.re
index 76f18231..fe507c5e 100644
--- a/src/models/GlobalCatastrophe.re
+++ b/src/models/GlobalCatastrophe.re
@@ -28,6 +28,7 @@ module Interface = {
     Prop.{
       name: "Global Catastrophe",
       id: "global-catastrophe",
+      fileName: "GlobalCatastrophe.re",
       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",
diff --git a/src/models/Human.re b/src/models/Human.re
index ec37ab7d..706618a0 100644
--- a/src/models/Human.re
+++ b/src/models/Human.re
@@ -1,4 +1,5 @@
-let guesstimatorString = age => GuesstimatorDist.normal(80.0 -. age, 2.);
+let guesstimatorString = age =>
+  GuesstimatorDist.normal(72.0 -. age, 5.0 -. age *. 0.01);
 
 let makeI = (age: float) => {
   DistPlusIngredients.make(
@@ -29,6 +30,7 @@ module Interface = {
     Prop.{
       name: "Death Time",
       id: "human-lifespan",
+      fileName: "Human.re",
       description: "When will you die?",
       version: "1.0.0",
       author: "Ozzie Gooen",