diff options
Diffstat (limited to 'front/src/Main.elm')
| -rw-r--r-- | front/src/Main.elm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/front/src/Main.elm b/front/src/Main.elm index ad43e46..dfdc55a 100644 --- a/front/src/Main.elm +++ b/front/src/Main.elm @@ -576,13 +576,13 @@ type alias SimSpecs = parseSimSpecs : RawSpecs -> Maybe SimSpecs parseSimSpecs { total, rate, i1, years, updates } = case - ( List.map String.toFloat [ total, i1 ] - , List.map String.toInt [ rate, years ] + ( List.map String.toFloat [ total, i1, rate ] + , List.map String.toInt [ years ] ) of - ( [ Just totalValueF, Just i1F ], [ Just rateI, Just yearsI ] ) -> + ( [ Just totalValueF, Just i1F, Just rateF ], [ Just yearsI ] ) -> Just - { principal = totalValueF * toFloat rateI / 100 + { principal = totalValueF * rateF / 100 , i1 = i1F , years = yearsI , updates = updates |