DrIFT-2.4.0: example/Foo.lhs

>module Foo where


>data Foo = Foo  | Bar | Bub