fix eta

IntersectMBO · Jan 25, 2021 · f637f2d · f637f2d
1 parent e9d83c9
commit f637f2d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/marlowe-actus/src/Language/Marlowe/ACTUS/Analysis.hs b/marlowe-actus/src/Language/Marlowe/ACTUS/Analysis.hs
@@ -25,15 +25,15 @@ genProjectedCashflows :: ContractTerms -> [CashFlow]
 genProjectedCashflows = sampleCashflows (const $ RiskFactors 1.0 1.0 1.0 0.0)
 
 postProcessSchedule :: ContractTerms -> [(EventType, ShiftedDay)] -> [(EventType, ShiftedDay)]
-postProcessSchedule ct s =
+postProcessSchedule ct =
     let trim = L.dropWhile (\(_, d) -> calculationDay d < ct_SD ct)
         prioritised = [AD, IED, PR, PI, PRF, PY, FP, PRD, TD, IP, IPCI, IPCB, RR, PP, CE, MD, RRF, SC, STD, DV, XD, MR]
         priority :: (EventType, ShiftedDay) -> Integer
         priority (event, _) = fromJust $ M.lookup event $ M.fromList (zip prioritised [1..])
         simillarity (_, l) (_, r) = calculationDay l == calculationDay r
         regroup = L.groupBy simillarity
         overwrite = map (L.head . sortOn priority) . regroup
-    in (overwrite . trim) s
+    in overwrite . trim
 
 
 sampleCashflows :: (Day -> RiskFactors) -> ContractTerms -> [CashFlow]