testsuite/tests/quotes/T4169.hs


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

-- Crashed GHC 6.12

module T4165 where

import Language.Haskell.TH
class Numeric a where
    fromIntegerNum :: a
    fromIntegerNum = undefined

ast :: Q [Dec]
ast = [d|
    instance Numeric Int
    |]