1

Is there a better way to do this?
A time series,
data Model a where
Variant :: [(Day, a)] -> Model a
deriving (Show)
... where type a in [(Day, a)] basically represents the "total balance" e.g. bank account.
Some example data,
day1 = fromGregorian 1987 10 17
day2 = fromGregorian 1987 1...