testsuite/tests/th/T5883.hs


1
2
3
4
5
6
7
8
9
10
11
12

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies    #-}
module T5883 where

import Language.Haskell.TH

$( [d|
        data Unit = Unit
        instance Show Unit where
          show _ = ""
          {-# INLINE show #-}
  |])