blob: a76b00b602e10fe38420aaa18dd5ac770972d9da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# LANGUAGE TemplateHaskellQuotes #-}
module TH_abstractFamily where
import Language.Haskell.TH
-- Empty closed type families are okay...
ds1 :: Q [Dec]
ds1 = [d| type family F a where |]
-- ...but abstract ones should result in a type error
ds2 :: Q [Dec]
ds2 = [d| type family G a where .. |]
|
