mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-11 06:41:04 +03:00
22 lines
462 B
Idris
22 lines
462 B
Idris
import Stuff
|
|
|
|
interface Functor f where
|
|
map : (a -> b) -> f a -> f b
|
|
|
|
Functor List where
|
|
map f [] = []
|
|
map f (x :: xs) = f x :: map f xs
|
|
|
|
data Test : Type -> Type -> Type -> Type where
|
|
MkTest : a -> b -> c -> Test a b c
|
|
|
|
Functor (Test c d) where
|
|
map = ?foo
|
|
|
|
-- Checking we can cope with the clash between the a,b here and the
|
|
-- a,b in 'map' (the names here get priority, and the ones in map get
|
|
-- renamed)
|
|
Functor (Test a b) where
|
|
map = ?bar
|
|
|