blob: 9412705e4c26378a10d89572fed1f2a58308dd14 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}
module T10134a where
import Data.Kind (Type)
import GHC.TypeLits
data Vec :: Nat -> Type -> Type where
Nil :: Vec 0 a
(:>) :: a -> Vec n a -> Vec (n + 1) a
|
