Idris2/tests/idris2/reg026/Meh.idr

module Meh

import public Control.WellFounded

public export
interface Argh (rel : a -> a -> Type) where
  argh : (x : a) -> Accessible rel x

data Meh : Nat -> Nat -> Type where

implementation Argh Meh where
  argh x = ?foo
Record implicit parameters of interfaces We need to make sure they are inferred again when elaborating methods, so substitute in a _ in method types before substituting in the explicit parameters. In future, it might (probably will) also be useful to allow giving the implicit parameters explicitly when defining implementations. Fixes #374 2020-06-28 16:58:57 +03:00			`module Meh`

			`import public Control.WellFounded`

			`public export`
			`interface Argh (rel : a -> a -> Type) where`
			`argh : (x : a) -> Accessible rel x`

			`data Meh : Nat -> Nat -> Type where`

			`implementation Argh Meh where`
			`argh x = ?foo`