Issue223.agda 263 B

123456789101112131415
  1. {-# FOREIGN GHC import qualified Issue223 #-}
  2. data A : Set
  3. data B : Set
  4. data A where
  5. BA : B → A
  6. data B where
  7. AB : A → B
  8. BB : B
  9. {-# COMPILE GHC A = data Issue223.A (Issue223.BA) #-}
  10. {-# COMPILE GHC B = data Issue223.B (Issue223.AB | Issue223.BB) #-}