Idris2/tests/idris2/reg033/test.idr

import Language.Reflection
import DerivingEq

%language ElabReflection

-- This tree doesn't work

data TreeTwo a = BranchTwo (TreeTwo a) a (TreeTwo a)
               | Leaf

covering
Eq a => Eq (TreeTwo a) where
  (==) = %runElab genEq `{ TreeTwo }
Delay building references for case blocks ...until the definition is complete. This is necessary since sometimes information outside the case block can help resolve interfaces, and in the simplest case, we might just have delayed resolving a default Integer. It turns out this was also an obscure bug waiting to happen with coverage checking of nested case blocks (so there's a test update there too). Fixes #443 2020-07-18 21:22:03 +03:00			`import Language.Reflection`
			`import DerivingEq`

			`%language ElabReflection`

			`-- This tree doesn't work`

			`data TreeTwo a = BranchTwo (TreeTwo a) a (TreeTwo a)`
			`\| Leaf`

[ re #2001 ] Make some prelude interfaces total (#2083) The prelude interfaces that have default definitions for all of their fields are declared total so that users are forced to think about meeting the minimal requirements for an implementation to be valid. 2021-11-02 18:34:52 +03:00			`covering`
Delay building references for case blocks ...until the definition is complete. This is necessary since sometimes information outside the case block can help resolve interfaces, and in the simplest case, we might just have delayed resolving a default Integer. It turns out this was also an obscure bug waiting to happen with coverage checking of nested case blocks (so there's a test update there too). Fixes #443 2020-07-18 21:22:03 +03:00			`Eq a => Eq (TreeTwo a) where`
Name quotes were made to use single braces instead of double ones. 2021-01-12 15:23:28 +03:00			(==) = %runElab genEq `{ TreeTwo }