T12130a.hs 283 Bytes
Newer Older
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 neccesary to trigger the bug.
         blockSelector = ()
       }
    |]