Update marlowe-actus/src/Language/Marlowe/ACTUS/Model/SCHED/ContractS…

…chedule.hs Co-authored-by: Pablo Lamela <[email protected]>
rmourey26 · Sep 9, 2021 · f555d03 · f555d03
1 parent 377e5ef
commit f555d03
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/marlowe-actus/src/Language/Marlowe/ACTUS/Model/SCHED/ContractSchedule.hs b/marlowe-actus/src/Language/Marlowe/ACTUS/Model/SCHED/ContractSchedule.hs
@@ -29,7 +29,7 @@ import           Language.Marlowe.ACTUS.Model.Utility.YearFraction        (yearF
 import           Language.Marlowe.ACTUS.Ops                               (YearFractionOps (_y))
 
 schedule :: EventType -> ContractTerms -> Maybe [ShiftedDay]
-schedule ev c = let m = maturity c in schedule' ev c { ct_MD = m }
+schedule ev c = schedule' ev c { ct_MD = maturity c }
   where
 
     schedule' :: EventType -> ContractTerms -> Maybe [ShiftedDay]