summaryrefslogtreecommitdiff
path: root/tests/examples/ghc86/TH_bracket3.hs
blob: dbc72518c8d430d3b09237bc61ec531a69608cd4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TemplateHaskell #-}

module TH_bracket3 where

d_class = [d| class Classy a b where
                 f :: a -> b

              instance Classy Int Bool where
                 f x = if x == 0 then True else False
           |]