RosettaCodeData/Task/Inheritance-Multiple/Haskell/inheritance-multiple-2.hs

class Camera (instanceVars)
    # methods...
    # initializer...
end

class Phone (instanceVars)
    # methods...
    # initializer...
end

class CameraPhone : Camera, Phone (instanceVars)
    # methods...
    # initialiser...
end