Fix revolving dates

yellowbean · Dec 24, 2023 · 0f8f136 · 0f8f136
1 parent 916f1e7
commit 0f8f136
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Asset.hs b/src/Asset.hs
@@ -84,9 +84,9 @@ class (Show a,IR.UseRate a) => Asset a where
   -- | ! Internal use
   calcAlignDate :: a -> Date -> Date
   calcAlignDate ast d = let 
-                          payDates = getPaymentDates ast 0
+                          payDates = getOriginDate ast:getPaymentDates ast 0
                           remainTerms = getRemainTerms ast 
-                          benchDate = reverse payDates!!pred remainTerms   `debug` ("\nPayDates"++show payDates++"\nremain terms"++ show remainTerms)
+                          benchDate = reverse payDates!! remainTerms  
                           offset = daysBetween benchDate d
                         in 
                           T.addDays offset $ getOriginDate ast