never executed always true always false

    1 module QuantLib.Type
    2   (
    3     Error(..)
    4   )
    5 where
    6 
    7 import Control.Exception(Exception)
    8 import Data.Time.Calendar(Day)
    9 
   10 data Error = CPlusPlusException String
   11           | DateConversion Day
   12           | EnumConversion String
   13           deriving (Show, Eq)
   14 
   15 instance Exception Error
   16 
   17 -- vim: set ft=haskell ff=unix ts=8 sts=2 sw=2 et: