# LANGUAGE ExistentialQuantification #
module QuantLib.Priceable
    ( Priceable (..)
    ) where

-- | All instruments and events have a net present value
class Priceable a where
    npv             :: a -> Double
    errorEstimate   :: a -> Double


 | All instruments and events have a net present value
# LANGUAGE ExistentialQuantification #
module QuantLib.Priceable
    ( Priceable (..)
    ) where

class Priceable a where
    npv             :: a -> Double
    errorEstimate   :: a -> Double

