DrIFT-2.4.0: example/Artifical.hs

module Example where

import Binary

data MyType a = ConsA Int (U (Int,[a]))
              | ConsB String --a
              | Red
              | Blue Int String {-(MyType a)-} [Int]
              {-!derive : Binary !-}