ghc-exactprint-0.5.3.1: tests/examples/ghc80/T10534a.hs

{-# LANGUAGE TypeFamilies, FlexibleContexts #-}

module T10534a where

import Data.Coerce

data family DF a

silly :: Coercible (DF a) (DF b) => a -> b
silly = coerce