{-# LANGUAGE MagicHash, DataKinds #-}
-- See also TypeOf.hs

import GHC.Prim
import Data.Typeable

data CharHash = CharHash Char#

main :: IO ()
main = print $ typeRep (Proxy :: Proxy 'CharHash)