Idris2/tests/idris2/basic039/Main.idr

11 lines
208 B
Idris
Raw Normal View History

module Main
-- Using :di we can see the internal structure. MkFoo should be a newtype,
-- MkBar not
data Foo : Type where
MkFoo : String -> Foo
data Bar : Type where
[noNewtype]
MkBar : String -> Bar