blob: edb943933adb99064f9a4d4983a5df30a4d660bf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{-# LANGUAGE RankNTypes, FlexibleContexts, ImplicitParams, TemplateHaskell #-}
-- This test makes sure TH understands types where
-- there is a predicate but no 'forall'
--
-- There are two tests in here; both should be fine
-- Trac ticket: #3100
module T3100 where
import Language.Haskell.TH
flop :: Ord Int => Int -> Int
flop x = x
$(do { t <- reify 'flop; return [] })
type T a = Eq a => a
$(do { reify ''T; return []})
|
