Import.agda 368 B

123456789101112
  1. module Issue2486.Import where
  2. open import Issue2486.Haskell
  3. {-# FOREIGN GHC import qualified MAlonzo.Code.Issue2486.Haskell #-}
  4. data MyList (A : Set) : Set where
  5. [] : MyList A
  6. _::_ : A → MyList A → MyList A
  7. {-# COMPILE GHC MyList = data MAlonzo.Code.Issue2486.Haskell.MyList ( MAlonzo.Code.Issue2486.Haskell.Nil | MAlonzo.Code.Issue2486.Haskell.Cons ) #-}