1 2 3 4 5 6 7 8 9
module TestStdStack2 import StdStack2 listStack :: Stack2 a listStack = { stack = [], ... } charStack :: Stack2 Char charStack = { stack = "", ... }