testsuite/tests/th/T12788.hs


1
2
3
4
5
6
7
8
9

{-# LANGUAGE TemplateHaskell #-}
module T12788 where

import Language.Haskell.TH
import T12788_Lib

data Bad = Bad { _bad :: String } deriving (Eq, Ord, Show)

$(deriveJSON defaultOptions{} ''Bad)