testsuite/tests/th/T12130a.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{-# LANGUAGE TemplateHaskell #-}

module T12130a where

import Language.Haskell.TH

data Block = Block
    { blockSelector :: ()
    }

block :: Q Exp
block =
    [| Block {
         -- Using record syntax is necessary to trigger the bug.
         blockSelector = ()
       }
    |]