old/gencons/test.icl

   1 module test
   2
   3 import Data.GenCons
   4 import Data.Maybe
   5 import StdArray
   6
   7 :: T =: T Int
   8
   9 derive class gCons T
  10 derive bimap []
  11
  12 //Start :: (Maybe (Int, Int))
  13 //Start = consByName "_Tuple2"
  14 //
  15 Start = consName{|*|} ss
  16
  17 ss :: {Int}
  18 ss = {}