BadUnboxedTuple.hs 171 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10
{-# LANGUAGE TypeFamilies, KindSignatures, TypeInType #-}

module BadUnboxedTuple where

import GHC.Exts

type family F :: TYPE UnboxedTupleRep

foo :: F -> ()
foo _ = ()