singletons-base-3.2: tests/compile-and-dump/Singletons/T443.hs

module T443 where

import Data.Kind
import Data.Singletons.TH
import Data.Singletons.TH.Options

$(withOptions defaultOptions{genSingKindInsts = False} $
  singletons [d|
  data Nat = Z | S Nat

  data Vec :: Nat -> Type -> Type where
    VNil :: Vec Z a
    (:>) :: { head :: a, tail :: Vec n a } -> Vec (S n) a
  |])