testdata/language-features/adt/adt02.reject.lc


1
2
3
4
5
6
7
8
9
10
11


data Data3
  = Data3 { one3 :: Bool
          , two3 :: Char
          , thr3 :: Bool
          }
  | Data31 {
        one3 :: Int
      , two3 :: String
      , thr3 :: Int
      }