[Haskell-cafe] Sub class and model expansion