summaryrefslogtreecommitdiff
path: root/tests/examples/pre-ghc86/T10321.hs
blob: 44d264a8018cd6237ea4f7868c387b68f35bcc34 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
{-# LANGUAGE DataKinds      #-}
{-# LANGUAGE GADTs          #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE TypeOperators  #-}

module T10321 where

import GHC.TypeLits

data Vec :: Nat -> * -> * where
  Nil  :: Vec 0 a
  (:>) :: a -> Vec n a -> Vec (n + 1) a

infixr 5 :>