testsuite/tests/typecheck/should_fail/UnliftedNewtypesFamilyKindFail1.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UnliftedNewtypes #-}

module UnliftedNewtypesFamilyKindFail1 where

import Data.Kind (Type)

data family DF (a :: Type) :: 5