-- data DerivStrategy = ...
stockStrategyDataConName, anyclassStrategyDataConName,
  newtypeStrategyDataConName :: Name
stockStrategyDataConName    = thCon (fsLit "StockStrategy")    stockDataConKey
stockStrategyDataConName, anyclassStrategyDataConName,
  newtypeStrategyDataConName :: Name
stockStrategyDataConName    = thCon (fsLit "StockStrategy")    stockDataConKey
stockStrategyDataConName    = thCon (fsLit "StockStrategy")    stockDataConKey